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PREFACE 



The prerequisites for a thorough 
understanding of this publication are a 
basic knowledge of both System/360 
programming concepts and Basic Operating 
System 16K Tape Control Programs* The 
publications providing this information 
are: 

IBM System/360 Principles of Operation, 

Form A22-6821; 
IBM System/360 Basic Operating System: 
System Control and System Service 
Programs (16K Tape) , Form d?24-3431; 
IBM System/ 3 60 Basic Operating System: 
Supervisor and Input/Output Macros (16K 
Tape) f Form C24-3432; 
IBM System/ 3 60 Basic Operating System: 
System Generation and Maintenance (16K 
Tape) , Form C24-5015. 

Closely related publications are: 

IBM System/ 3 60 Basic Operating System: 

Assembler Language Specifications (16K 

Disk/Tape) . Form C24-3414; 
IBM System/360 Basic Operating System: 

Data Management Concepts (16K Tape) y 

Form C24-3430. 

This publication is designed to help the 
reader in two ways: 



1. Detailed flowcharts with accompanying 
narratives and a cross-reference label 
list provide a quick guide to the 
program listing. 

2. Summaries of program flow, I/O flow, 
storage allocation, and constant areas 
provide a basic understanding of the 
program logic. 



This publication describes the program 

logic at three levels: 

System level . A brief description of the 
programs in the system and how they 
relate to one another. 

Program level . A general description of 

the flow of each program describing the 
routines within the program and 
information common to these routines. 

Routine level . A detailed description of 
the flow of each routine with reference 
to a detailed flowchart of the routine. 



Information common to all programs in 
the system is found in the discussion of 
the Supervisor, and a detailed layout of 
system residence is found in the 
introduction to the Librarian. 



Copies of this and other IBM publications can be obtained through IBM 
Branch Offices. A form has been provided at the back of this 
publication for readers' comments. If the form has been detached, 
comments may be directed to: 
IBM Programming Publications, Endicott, New York 13760. 



(c) International Business Machines, 1966. 
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IBM SYSTEM/360 BOS, SYSTEM CONTROL (16K TAPE) 



The 16K tape resident version of the IBM 
System/360 Basic Operating System is 
designed to minimize the time and effort 
required by the user to produce and process 
programs • Centralized control governs the 
execution of all other programs on the 
system. Services edit programs for execu- 
tion under control and maintain libraries 
of programs for the system. 

Control programs constitute the frame- 
work of System/360 BOS. The Supervisor 
handles all interrupts. Job Control pro- 
vides program-to-program tranrition. IPL 
initializes the system, loading the Super- 
visor and Job Control. 

Service programs prepare ^11 programs 
for the system and maintain the system 
libraries. Linkage Editor edits language 
processor output for execution under the 
system Supervisor. Librarian maintenance 
includes items in, or deletes items from, 
the system libraries. Librarian service 
provides information on the contents of the 
system libraries. 

Figure 1 shows the relationship between 
these system components. 



SYSTEM RESIDENCE 



Figure 2 shows the organization of the 
residence tape. The tape unit is assigned 
to the logical unit SYSRES. The relocat- 
able and source statement libraries may be 
on independent tapes assigned to SYSRLB and 
SYSSLB, respectively. 

Along with the Supervisor in the core 
image library are a Job Control, IPL, Link- 
age Editor and Librarian edited to run with 
the Supervisor. A new Supervisor can be 
generated from the system generation macros 
in the source statement library. Then 
revised versions of the system control and 
service programs must be edited into the 
core image library from modules provided in 
the relocatable library. 



SYSTEM CORE ALLOCATION 



Under System/360 BOS control main storage 
is divided into two parts as in Figure 3. 
Low core is reserved for the Supervisor and 
transient routines. High core is called 
the problem program area. 

The user can specify the point of divi- 
sion at system generation time. 



The system control programs reside on a 
tape along with other IBM programs and user 
programs in the system. The tape records 
are divided into three libraries. 

Core Image Library ; Programs ready for 
execution; output from the Linkage Editor. 

Relocatable Library ; Program modules that 
have not been edited to run under the 
Supervisor; output from the language proc- 
essors; input to the Linkage Editor. 

Source Statement Library ; Library routines 
in source language (e.g., macros); input to 
the language processors. 



SYSTEM I/O 



All input and output under Supervisor con- 
trol is done in reference to logical units 
with names of the form •SYSXXX*. The I/O 
tables in the supervisor define the rela- 
tionship between logical units (LUB's) and 
physical devices (PUB f s) , according to the 
assignments made in the system or by the 
user. Figure 4 shows the logical units 
referenced by each of the system programs 
and the devices which may be assigned to 
them. 
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T 













CR - Card Reader 
CP - Card Punch 
P - Printer 
K - Console 
T - Tape 



Figure 4, System I/O: Possible Logical Unit and Allowable Device Usage 
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CONTROL PROGRAMS 



SUPERVISOR 



The Supervisor is read into core at I PL 
time and remains there throughout system 
operation. The Supervisor area consists of 
four parts: 

1. Constant areas to describe system oper- 
ation. 

2. Nucleus of coding to handle interrupts. 

3. Type- A transient area to hold physical 
IOCS error-routine overlays. 



4. Type-B transient area to hold Supervi- 
sor routine overlays. 



Figure 5 shows the allocation of core to 
the various parts of the Supervisor. 



Location 
COMREG 
CHNSCH 



PPBEG=EOSSP 
if no storage 
protection 



PTA 
LTA 

PPBEG 
EOSSP 



360 Constant Area 



Communications Region 
and I/O Tables 



Nude 



Type A Transient Area 
504 Bytes 



Type B Transient Area 
1 000 Bytes 



Proble 



Program 



Area 



NUCEND 



SYSEND 



ADDR specified by user 
SUPEND 



Figure 5. Supervisor Core Allocation 
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HEX 


DECIMAL 


DEFINITION 


SYSGEN INITIALIZATION 
TO ZEROS EXCEPT FOR 


00 


00 


IPL PSW 




08 


08 


IPL CCWi 


Zeros in This System-Location 22 


10 


16 


IPL CCW 2 


(hex 16) contains address of 
communications region 


18 


24 


External Old PSW 




20 


32 


SVC Old PSW 




28 


40 


Program Old PSW 




30 


48 


Machine Old PSW 




38 


56 


I/O Old PSW 




40 


64 


CSW 




48 


72 


CAW 




4C 


76 







50 
54 


80 
84 


Timer 
Time-of-Day 


'FF FF FF FF') T?me-of-day 

> -Timer/256 
'00 FF FF FF') Actual Time^f-day 


58 


88 


External New PSW 


Addresses EXTINT; 

Bit 13 on, Bits 36-39 on 


60 


96 


SVC New PSW 


Addresses SVCINT; 
Bit 13 on 


68 


104 


Program New PSW 


Addresses PCHECK; 
Bit 13 on 


70 


112 


Machine New PSW 


Addresses SETACT 
(in Unit Check) 


78 


120 


I/O New PSW 
Scan Out Area 


Addresses INTERR; 
Bit 13 on 


80 


128 


and Saved Double 
Word 





SUPERVISOR CONSTANT AREAS 



An area in low- core is reserved by the 
Supervisor for a communications region and 
for I/O tables. 



The communications region immediately 
follows the System/360 constant areas shown 
in Figure 6. The address of the communi- 
cations region is always located in decimal 
address 22. The user has this address 
available through the macro COMREG. Figure 
7 displays the information contained in the 
communications region. 



The I/O tables follow the communications 
region. These tables are necessary for the 
execution of I/O by the Supervisor. 



For every device on the system there 
must be a physical unit block (PUB). For 
every logical unit name (SYSXXX) used by 
the programmer, there must be a logical 
unit block (LUB) . 



When the programmer requests I/O, an 
entry is made in the channel queue table 
(CHANQ). The CCB provided names a logical 
unit. 



The Supervisor processes the request 
when possible on the device assigned to the 
logical unit. If the user specifies TEB at 
system generation time, counts of tape 
errors are kept in tape error blocks 
(TEB's) for each tape unit. 



Figure 6. Supervisor Constant Areas 



PUB's are set up at system generation or 
IPL time. LUB's are set up at system gen- 
eration. PUB's are assigned to LUB f s at 
system generation or by the ASSGN routine 
in Job Control. Temporary or alternate 
assignments require that job information 
blocks (JIB f s) be attached to LUB f s. 



CHANQ entries are set up by the Channel 
Scheduler routine and processed by the 
Actual I/O routine in the supervisor. 
TEB's are used by the Tape Error routine in 
the supervisor. 



The elements of each I/O table are des- 
cribed in detail in the following sections. 
Figure 14 displays the interrelationship of 
tables and pointers. Figure 15 is a sample 
table. Figure 16 summarizes each table 
entry. 
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DECIMAL 
DISPLACEMENT 


SYSTEM GENERATION 
INITIALIZATION 


DEFINITION 


00 


'07/15/65' 


Job date from DATE statement 


08 


Y (PPBEG) 


Address of problem program label 
area; end of transient area +1 


10 


Y (EOSSP) 


Address of problem program area; 
if storage-protect, first byte 
having a storage protection key 
of 1 


12 


Zeros 


Problem program work area 


23 


'00' 


UPSI byte 


24 


'NO NAME' 


Job name from JOB statement 


32 


Hex3FFF; Dec 16383 


Address of last byte in problem 
program area 


36 


Hex3F10; Dec 16144 


Address of last byte placed in 
the problem program area by a 
FETCH or LOAD 


40 


Hex 3F10; Dec 16144 


End of longest phase of 
problem program 


44 


'0000' 


Length of problem program label 
area 


46 


'0000' 




48 


Hex3F10; Dec 16144 


Address of last byte of data in 
SPOOL/Tele-processing area 


52 


'00' or as specified 


Machine Configuration 

bit - storage-protection 
feature 

1 - decimal feature 

2 - floating-point feature 
3-0 

4 - timer feature 

5 - channel switchable de- 

vice support 

6 - burst/multiplex device 

support 

7-0 


53 


•00' or W 


Date configuration: MDY or 

DMY; 

Bits used as switches: 

5 - burst/multiplex device 

in operation 

6 - FETCH/LOAD in opera- 

tion 

7 - logical transient in op- 

eration 



DECIMAL 
DISPLACEMENT 


SYSTEM GENERATION 
INITIALIZATION 


DEFINITION 


54 


'00 00' or as specified 


Standard job-control options for 
third and fourth job-control 
switch banks 


56 


'CO 00 00 00' 


Job -control switch bytes: 
detailed description in 
Job Control 


60 


■00 00' 


Disk address (CC HH) of label 
area 


62 


A (FOCL) 




64 


A (PUBTAB) 




66 
68 


A (FAVP) 
A (JIBTAB) 


I/O table addresses 


70 


'0000' or A (TEBTAB) 
if TEB specified 




72 


A (FICL) 




74 


A (NICL) 




76 


A (LUBTAB) 




78 


30 or as specified 


Line count for SYSLST 


79 


1 07 15 65 166' 


System date and day of year 
from SET statement 


88 


'00' 


Cancel code 


89 


'00' 




90 


A (ALLRGS) 


Address of register save area 
for SVC 


92 


'OOOO' 


Identification number of last 
checkpoint 


94 


'0000' 


Address of SPOOL/Tele-process- 
ing data 


96 


A (DSKPOS) 


Address of disk I/O position 
data 


98 


A (ERBLOC) 


Address of channel scheduler 
error data 



Figure 7* Supervisor communications Region 
(Part 2 of 2) 



Figure 7. Supervisor communications Region 
(Part 1 of 2) 
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CHANQ - CHANNEL QUEUE TABLE 



The number of entries is specified at sys- 
tem generation time. The table must hold 
all the I/O requests that await execution 
at any one time. The entries are refer- 
enced by CHANQ pointers 0, 1, 2. 

Each CHANQ entry consists of 4 bytes: 
- chain field; pointer to the next in 
queue. •FF* marks the end of a queue. 
2-4 - CCB address. 
Associated with each entry is one byte at 
LUBPTR and one byte at REQID. LUBPTR is a 
LUB pointer indicating the logical unit 
making the I/O request. REQID, if storage- 
protection, is a code identifying the 
program making the I/O request. 

The byte FLPTR contains the pointer to 
the next free entry (free list pointer). 
The free entries are chained together in a 
queue to FLPTR as request entries are 
chained to a PUB. 

CHANQ entries are referenced by PUB f s 
identifying devices awaiting I/O. Channel 
queues are built by the Channel Scheduler 
routine in the Supervisor. 



PUBTAB 



PHYSICAL UNIT BLOCK TABLE 



The number of entries is specified at sys- 
tem generation time. There must be one 
entry for each device on the system. 
Entries may be made to the table at system 
generation time. The operator may add or 
delete entries at IPL time. The entries 
are referenced by PUB pointers 0, 1, 2. 

Each PUB entry consists of 8 bytes: 

- channel address; 0, 1, 6; 8 FF° = 

null channel address. 

1 - unit address. 

2 - CHANQ pointer; 0, 1, ; *FF f = null 

pointer. 

3 - TEB pointer; 0, 1, ; or error 

counter; "00 s = null pointer or initial 
counter. 

4 - device type ( Figure 8). 

5 - device options; '00* (non-tape); '93° 
or user mode (tape). 

6 - channel scheduler flag ( Figure 9). 

7 - job control flag ( Figure 10). 

The end of the table is denoted by an 
°FF*. The eight bytes labeled FOCL specify 
the first PUB on each of the eight possible 
channels (first on channel list). PUB's 
are referenced by the LUB's to which they 
are assigned. Bytes 2 9 3, and 6 are modi- 
fied by the Channel Scheduler routine. 
Bytes 5 and 7 are modified by Job Control. 
Other bytes remain constant. 



USER-SPECIFIED 
MACRO PARAMETER 



1050A 



DEVICE TYPE 
BYTE IN PUB 



1050B 



X'OO' 
X'Ol' 



-H 



F 

1050C 

1050D 

1050E 

1050F 

1050G 

1050H 

2501 

2540R 

2520B2 or 2520B3 

2540P 
j. 

1442N2 
j. 

1442N1 

I 

2520B1 

1403 or 1404 



X , 02' 
X f 03' 



-H 



X , 04» 



X'05 f 
X'06 f 



^ 






-H 






~H 



X"07' 
X'10' 
X , ll f 
X f 20 f 
X f 21 f 






X f 22' 









I 



1443 or 1445 
2400T7 or 2400T9 



X'30 1 
X , 31 f 
X^O' 
X*41 f 
X'50' 



j 

-J 



1 



UNSP or UNSPB 



X«FF* 



-H 



Figure 8. PUB Device Type 

[0 - Device busy 

j 

|1 - Switchable device 

| 2 - End of file for SYSRDR or SYSIPT 



| 3 - I/O error recovery outstanding 

| 5 - Device-end posting desired 

y < 

| 6 - Burst/MPX device 
| 7 - 7-Track tape device 

Figure 9. PUB Channel Scheduler Flag 
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I 0-4 - Standard- assignment mode for j 

| 7-track tape; all bits one if | 

j device is not tape? all bits zero | 

| if device down. j 

| 5 - Assigned to a system logical unit | 

| 6 - Assigned to a programmer logical unitj 

Figure 10. PUB Job Control Flag 



TEBTAB - TAPE ERROR BLOCK TABLE 



The TEB table appears if requested at sys- 
tem generation time. The number of entries 
is specified by the user. There should be 
one entry for each tape device in the sys- 
tem. The entries' are referenced by TEB 
pointers 0, 1, 2, etc., in the PUB for each 
tape device. 



Each TEB entry consists of 6 bytes: 



- error recovery retry count; 

indicates a null TEB. 

1 - permanent read error count. 

2 - initial read error count,. 

3 - initial write error count. 

4 - erase gap count. 

5 - noise record count. 



'FF' 



JIBTAB - JOB INFORMATION BLOCK TABLE 



The number of entries is specified at sys- 
tem generation time. The table must hold 
all the temporary and alternate assignments 
that are needed at any one time. The 
entries are referenced by JIB pointers 0, 
4, 8, etc. 



The counters in the TEB are used by the 
tape error recovery routine. At end- of - 
job, Job Control resets each TEB to its 
null form *FF 00 00 00 00 00'. 



LUBTAB - LOGICAL UNIT BLOCK TABLE 



Each JIB entry consists of 4 bytes: 

- alternate or stored standard PUB 
pointer. 

1 - f 00 - or stored standard LUB flag. 

2 - present assignment LUB flag and JIB 
flag ( Figure 11). 

3 - chain field; bit-7-on defined as 
end-of- chain. 



The byte FAVP contains the pointer to 
the next free entry (first available 
pointer). The free entries are chained 
together to FAVP as assignment entries are 
chained to a LUB. 



The number of entries is specified at 
system generation time. A minimum of 15 
and a maximum of 255 entries may be speci- 
fied. To use a logical unit name, a cor- 
responding LUB must appear in the table. 
PUB's may be assigned to LUB's at system 
generation time. At any time the program- 
mer and operator may alter or add to these 
assignments through Job Control. 

Each entry is referenced by a logical 
unit name, SYSXXX. The names are divided 
into two classes: system and programmer. 
Figure 12 shows the order of the names and 
the division between classes. 



JIB entries are referenced by LUB* s to 
which temporary and alternate assignments 
are made* JIB chains are built by the 
ASSGN routine in Job Control. 



Each LUB entry consists of 2 bytes: 

- PUB pointer 0, 1, 2, ; f FF* = null 

pointer. 

1 - LUB flag in first four bits; a JIB 

pointer 0, 4, 8, in the last four 

bits; 1 if no JIB attached. 



h 



0-3 - present assignment LUB flag bits 



4 - 



-I 



5 - stored standard JIB 



H- 



6 - alternate JIB 



7 - 



Figure 11. JIB Flag Byte 



The eight bytes labeled FICL and NICL 
specify the first LUB entry in each class 
and the number of entries in that class 
(first in class list and number in class 
list). Specifically: 

• byte - system first in class; must be 
•00' 

• byte 1 - programmer first in class; 
must be 'OA' 

• byte 4 - system number in class; must 
be f 0A* 

• byte 5 - programmer number in class; 
specified by user. 
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r 




T 

JSYSRDR 
j SYSIPT 
JSYSPCK 
| SYSLST 


- T - 


1 




System 
Logical 
Unit 
Class 


| SYS LOG | 
jreservedj 
| SYSRES | 
JSYSSLB j 


required | 
LUB's | 






| SYSRLB 






J 





|SYSUSE 
i 


H 




|SYS000 






Programmer 


|SYS001 








Logical 


|SYS002 








Unit 
Class 


JSYS003 
j SYS 004 
k 

1SYS005 

JSYS244 


-+- 


optional | 
LUB's j 







FICL 



LUBTAB 



NICL 



JIBTAB 



FOCL 









Figure 12. Logical Unit Names 



JO - with null PUB pointer, present | 

| assignment IGN rather than UA. j 

| ^ 

|1 - present assignment standard. | 

| 2 - standard assignment UA. j 

j 3 - standard assignment IGN. j 

Figure 13. LUB Flag Byte 



FAVP 

EH 



PUBTAB 




CHANQ 



FLPTR 

EH 



TEBTAB 

























































rT M IT 



Figure 14. I/O Tables and Pointers 
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System Generation 
Initialization of Tables 



Sample Table 



6 Channel 
Queue 
Entries 



lOPUBs 



6 JIBs 



15 LUBs 



CHANQ 


01 


00 


00 


00 










A request from SYSPCH 


01 


00 


18 


40 










CHANQ 


1 


02 


00 


00 


00 










awaits execution. There 


03 


00 


18 


70 










1 


2 


03 


00 


00 


00 










are no further requests from 


FF 


00 


IE 


BO 










2 


3 


04 


00 


00 


00 










SYSPCH waiting. Re- 


04 


00 


00 


00 










3 


4 


05 


00 


00 


00 










quests from SYS002 and 


05 


00 


00 


00 










4 


5 


FF 


00 


00 


00 










SYS003 have been com- 


FF 


00 


00 


00 










5 


LUBPTR 


00 


00 


00 


00 


00 


00 






pleted. REQID is not used 


OC 


0D 


02 


00 


00 


00 






LUBPTR 


REQID 


00 


00 


00 


00 


00 


00 






(no storage protection 


00 


00 


00 


00 


00 


00 






REQID 


FLPTR 


00 
















feature). 


00 
















FLPTR 


FOCL 


FF 


FF 


FF 


FF 


FF 


FF 


FF 




All PUBs are being used to 


00 


04 


FF 


FF 


FF 


FF 


FF 




FOCL 


PUBTAB 


FF 


00 


00 


00 


00 


00 


00 


00 


describe devices. There 


00 


0E 


FF 


00 


40 


00 


00 


FC 


PUBTAB 


1 


FF 


00 


00 


00 


00 


00 


00 


00 


are six tape devices on 


00 


OC 


FF 


00 


11 


00 


00 


FC 


1 


2 


FF 


00 


00 


00 


00 


00 


00 


00 


channel one - the user has 


00 


0D 


02 


00 


21 


00 


80 


FC 


2 


3 


FF 


00 


00 


00 


00 


00 


00 


00 


not changed the mode from 


00 


IF 


FF 


00 


00 


00 


00 


FC 


3 


4 


FF 


00 


00 


00 


00 


00 


00 


00 


the assumed reset. SYS LOG 


01 


80 


FF 


00 


50 


93 


00 


92 


4 


5 


FF 


00 


00 


00 


00 


00 


00 


00 


is a 1052. SYSPCH is a 


01 


81 


FF 


00 


50 


93 


00 


92 


5 


6 


FF 


00 


00 


00 


00 


00 


00 


00 


2540. SYSLST is a 1403- 


01 


82 


FF 


00 


50 


93 


00 


92 


6 


7 


FF 


00 


00 


00 


00 


00 


00 


00 


1404. SYSRDRand SYSIPT 


01 


83 


FF 


00 


50 


93 


00 


92 


7 


8 


FF 


00 


00 


00 


00 


00 


00 


00 


are the same device, a 


01 


84 


FF 


00 


50 


93 


00 


9C 


8 


9 


FF 
FF 


00 


00 


00 


00 


00 


00 


00 


2540 (SYSIPT has been 
temporarily assigned to a 
tape . ) 


01 
FF 


85 


FF 


00 


50 


93 


00 


9C 


9 


FAVP 


00 
















The standard assignment for 


OC 
















FAVP 


JIBTAB 


00 


00 


00 


04 










SYSIPT is stored in the first 


01 


41 


04 


01 










JIBTAB 


4 


00 


00 


00 


08 










JIB. Two alternate assign- 


05 


00 


42 


08 










4 


8 


00 


00 


00 


OC 










ments for SYS003 are in 


06 


00 


02 


01 










8 


C 


00 


00 


00 


10 










the second and third JIBs. 


00 


00 


00 


10 










C 


10 


00 


00 


00 


14 












00 


00 


00 


14 










10 


14 


00 


00 


00 


01 












00 


00 


00 


01 










14 


FICL 


00 


OA 


FF 


FF 


OA 


05 


00 


00 


SYSIPT and SYS003 have 


00 


0A 


FF 


FF 


OA 


05 


00 


00 


FICL 


LUBTAB 


FF 


61 


FF 


61 


FF 


61 


FF 


61 FF 61 


JIBs. SYSSLB, SYSRLB, 


01 


41 


09 


00 


02 


41 


00 


41 03 41 


LUBTAB 


5 


FF 


61 


FF 


61 


FF 


61 


FF 


61 FF 61 


SYSUSE, and SYS004 are 


FF 


61 


08 


41 


FF 


61 


FF 


61 FF 61 


5 


A 


FF 


61 


FF 


61 


FF 


61 


FF 


61 FF 61 


unassigned. 


04 


04 


06 


41 


07 


41 


05 


41 FF 61 


A 



Figure 15. I/O Sample Table 
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Entry 


Byte 


Definition 


each CHANQ entry 



] 


CHANQ-pointer to next in queue; "FF" 
marks end of queue 




2 

3 


. 


> CCB address 


each LUBPTRbyte 





LUB-pointer indicating logical unit 
requesting I/O 


each REQID byte 





code indicating program requesting l/O 


each PUB entry 



1 


channel address; 'FF' is the null 
address 

unit address 




2 


CHANQ-pointer; "FF" is the null pointer 




3 


TEB-pointer or error counter; "00" is 
the null pointer 




4 


device-type; see device-type table 




5 


device-options; "00" (non-tape), "93" 
or user-mode (tape) 




6 


channel-scheduler flag 




7 


job-control flag 


each alternate JIB entry 




1 


alternate PUB pointer 
"00" 




2 


present assignment LUB-flag; alternate 
JIB flag 




3 


JIB-pointer; bit 7 indicates end-of-chain 


each stored standard 





") 


JIB entry 


1 


1 — 




2 


present assignment LUB-flag; stored- 
standard JIB flag 




3 


JIB-pointer; bit 7 indicates end-of-chain 


each TEB entry 




1 


retry count; "FF" is the null TEB 
indicator 

permanent read error count 




2 


initial read error count 




3 


initial write error count 




4 


erase gap count 




5 


noise record count 


each LUB entry 




1 


PUB-pointer; "FF" is the null pointer 

LUB flag or, if JIB attached, JIB 
pointer 



SUPERVISOR NUCLEUS 



The nucleus is entered whenever an inter- 
rupt occurs. The new PSW's shown in Figure 
6 show the labels in the nucleus at which 
entry is made. 



SVC Interrupt (SVCINT - Chart BA) : An SVC 
goes to the Channel Scheduler routine 
to make an entry in the channel queue 
table. Others fetch or load programs, 
transfer from routine to routine, alter 
the constant areas, and return to Job 
Control on a cancel or end-of-job con- 
dition. 



External Interrupt (EXTINT - Chart BH) : If 
provided by the user, the Supervisor 
gives control to a user routine. 



Program Check Interrupt (PCHECK - Chart 
BH) : If provided by the user, the 
Supervisor gives control to a user 
routine. 



Machine Check Interrupt (SETACT - see Unit 
Check Exit Routines ) : The Supervisor 
enters a wait state with , S < in loca- 
tion 1. 



I/O Interrupt (INTERR - Chart AC): The 

Supervisor examines the status bits of 
the completed I/O and determines if 
another I/O operation should be start- 
ed. 



Furthermore, the Supervisor nucleus issues 
actual I/O commands after an SVC if the 
I/O can be processed immediately, or after 
an I/O interrupt if more I/O awaits proces- 
sing. 



The routines are described in the order 
of their occurrence in the Supervisor: 

• SVC - Channel Scheduler 

• Actual I/O 

• I/O Interrupt 

• Unit Check 

• SVC 1-21, External, and Program Inter- 
rupts 

• Tape Error. 



Appendix D describes Physical IOCS 
fields that must be familiar to the 
reader: the 16 K Tape CCB, the CCW, the 
PSW's, the CAW, and the CSW. 



Figure 16. I/O Table Entries 
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CHANNEL SCHEDULER - CHART AA 



Objective: To indicate that an I/O request 
has been made by adding an entry to the 
channel queue table. 

Entry: From the SVC Interrupt routine when 
an SVC is identified. 

Method: With the SVC used to request 
I/O, a CCB is provided. The requesting 
program places the CCB address in register 
1 and, in the CCB, sets: 

• Options - byte 2, bits 3 and 5 and 7. 

• Logical unit address - bytes 6 and 7. 

• CCW address - bytes 9 and 10 and 11. 
The Channel Scheduler resets the remainder 
of bytes 2, 3, and ** to zeros. 

This routine uses the logical unit 
address to locate the LUB and compute the 
LUB pointer. The LUB points to the PUB 
assigned to it. The I/O request is added 
to the channel queue for that PUB. 

1. FLPTR replaces the end-of-queue pointer 
•FF' in the PUB or in the chain field 
of the last entry in the queue for that 
PUB. This pointer references the new 
channel queue entry. 

2. The chain field in the new entry repla- 
ces FLPTR. 

3. The end-of-queue pointer 'FF' and the 
address of the CCB replace the fields 
in the new entry. 

4. The LUB pointer is inserted in the 
correct byte of LUBPTR. 

If the request is for SYSRES, bit 1 in 
JBCSWO (displacement 56 of the communi- 
cations region) is set on. 

If the new I/O request is the first in 
the queue and the device is not busy (check 
bit in the channel scheduler flag of the 
PUB) , exit is to the Actual I/O routine to 
perform the I/O immediately. Otherwise, 
control returns to the requesting program. 
Registers 1-7 are saved and restored for 
that program. 



ACTUAL I/O - CHART AB 



Objective: To issue an SIO command, pro- 
vided the channel is available. 

Entries: 

1. From the Channel Scheduler when an I/O 

request is made for an available 

device. 



2. From the I/O Interrupt routine when a 
channel is freed for use and an I/O 
request for an available device on that 
channel is awaiting execution. 

Method: On entry to this routine, the PUB 
table displacement for the device awaiting 
I/O must be in register 3. Register 2 is 
initialized to the device address (channel 
and unit) from the PUB. 

A TCH command is issued to determine if 
the channel is available. If not, and the 
device is not switchable, an immediate exit 
is taken to the interrupted program. If 
the device is switchable (check bit 1 of 
the channel scheduler flag in the PUB), the 
next channel is also checked. 

An SIO command is issued unless: 

1. The device is for SYSRDR or SYSIPT and 
end-of-file has been encountered (input 
/S set bit 2 of the channel scheduler 
flag in the PUB). Instead control is 
given to the I/O Interrupt routine at 
GETCHQ to complete I/O and cancel the 
job. 

2. The device is a burst/ multiplex device 
in operation (check bit 5 of the con- 
figuration byte, displacement 53 in the 
communications region). Instead con- 
trol returns to the interrupted pro- 
gram. 

Before the SIO command is issued, the 
CAW must be set to the correct CCW address. 
If the device is tape, the set-mode CCW is 
the first to be executed (mode from PUB 
device- options byte). Otherwise, the CCW 
address is taken from the CCB addressed by 
register 1). 

After the SIO command is issued, the 
condition code is tested: 

• Condition code 0. The I/O operation is 
proceeding in a normal manner. This 
routine sets the device-busy indicator 
(bit of the channel scheduler flag in 
the PUB). If the device is a 
burst/multiplex device, bit 5 of the 
configuration byte, displacement 53 in 
the communication region, is set on. 
Control returns to the interrupted 
program. 

• Condition code 2. The channel is busy. 
Control returns to the interrupted 
program. 

• Condition code 3. The channel is not 
operational. Control is given to the 
Unit Check routine at IONOP to signal 
an error and enter the wait state 
through the machine- check new PSW* 

• Condition code 1. The I/O is complete 
and the status has been stored in the 
CSW. This routine tests all the status 
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bits (32-47) of the CSW except 33, 35, 
40, and 41. If none are on, control 
returns to the interrupted routine. If 
any are on, control goes to the I/O 
Interrupt routine (normal I/O 
completion) . 

Returning the interrupted program from 
this routine requires two checks: 

1. Check for errors (ignore errors if 
interrupted program is the fetch rou- 
tine - bit 1 in JBCSWO) . If errors 
have been queued, complete pending I/O 
by putting the system in wait state and 
fetch the required Type-A transient 
routine. 

2. Check for PIOCS cancel. If the first 
bit in the cancel code is on, turn it 
off and fetch the Cancel transient 
routine. 

Return is through the I/O old PSW. Reg- 
isters 1-7 are saved and restored for the 
interrupted program. 



Entries: 

1. From the interrupted program through 
the I/O new PSW. 

2. From the Actual I/O routine when a 
command is completed immediately "and 
status bits are set. 



Method: If entry is through an I/O inter- 
rupt, registers 2 and 3 must be set. Reg- 
ister 2 must contain the device address 
(channel and unit) found in the I/O old 
PSW. Register 3 must contain the PUB dis- 
placement for the device; the section of 
the PUB table for the specified channel is 
searched for the specified device. If no 
PUB is found, no CSW bits are processed. 
An attempt is made to reschedule the chan- 
nel at INITRG. 

At GETCHQ, the CHANQ entry chained to 
the PUB is located and the address of the 
CCB placed in register 1. The CSW status 
bits are checked in a specified order 
(Figure 17). If no error exit is taken, an 
attempt is made to reschedule the channel 
at INITRG. 



I/O INTERRUPT - CHART AC 



Objective: To process the CSW bits from 
the completed I/O and to determine if 
another I/O operation should be started. 



The section of the PUB table for the 
freed channel is searched for an I/O 
request. If one is found for an available 
device, the CCB address from the CHANQ 
table is put in register 1 and control goes 
to the Actual I/O routine* Otherwise, 
return is to the interrupted program 
through the Actual I/O return routine. 
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STATUS 
BIT 


STATUS 


ACTION 


44 

45 
46 


Channel data check 

Channel control check 
Interface control check 


Takes I/O channel failure exit (CHFA1L) to signal an error and 
enter wait state through the machine check new PSW. 


38 
42 

43 
47 


Unit check 
Program check 

Protection check 
Chaining check 


Exits to unit-check routine (UNTCHK). 

If error is recoverable, returns to TSTUEX or SELECT. 


32 


Attention 


Exits to the attention routine (ATTRTN). 

Unless interrupted program is the fetch routine, executes the 

MSGIN transient routine and returns to the interrupted program. 


39 


Unit exception 


Turns on bits 36 and 37. Continues CSW status test. 


36 


Channel end 


At CHNDRT: 

1 . Saves CSW information in the CCB. 

2. If device assigned to SYSRDR or SYSIPT, checks input and 
sets: 

a. end-of-file bit 2 in PUB channel scheduler flag on/&. 

b. flag bit 17 in CCB on /* or /&. 

c . unit exception bit 39 in CCB on /* or / &. 

3. If device end, exits to that routine, step 2b. 

4. Sets device busy bit in the PUB channel scheduler flag . 

5. If device-end-posting desired, exits to device-end, step 2d. 

6. Sets device-end-posting desired bit 5 in the PUB channel 
scheduler flag. 

7. Exits to attempt to reschedule the channel . No attempt is 
made for a multiplex channel unless this is a burst/multiplex 
device . 


37 


Device end 


1 . Turns off device busy bit in the PUB channel scheduler 
flag. 

2. If device-end-posting desired, 

a. saves CSW status bytes in the CCB. 

b. turns off device-busy bit and 

c. turns off device-end -posting-desired bit 5 in the 
channel scheduler flag. 

d. zeros PUB error counter unless interrupted program is an 
error routine. 

e. turns on traffic bit 16 in the CCB. 

f. updates PUB CHANQ-pointer to next request. 

3. Exits to attempt to reschedule the channel . Only an at- 
tempt to reschedule the device is made for a multiplex 
channel unless this is a burst/multiplex device. 



Figure 17. I/O Interrupt: CSW Testing 
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UNIT CHECK - CHART AD 

Objective: To determine action taken on 
an I/O interrupt with: 
« unit check 

• program check 

• protection check 
© chaining check. 

Entry: From the I/O Interrupt routine 
when any of these checks occur. 

Method: Before determining the error exit, 
device-end and channel-end conditions are 
tested. If device-end or control- unit end 
and not channel-end, the error flag indi- 
cates "ignore" rather than "retry". 

If the user has provided his own unit 
check routine, control returns to the I/O 
Interrupt routine with bit 18 on in the 
CCB. PIOCS ignores the error. 

If PIOCS must process the error, an 
error queue entry is built. Only 5 entries 
can be handled at once; an attempt to build 
more entries creates a cancel condition. 
Each entry has 18 bytes: 

0-7: CSW, first byte zero. 

8-9: address of PUB table entry for 

device in error. 
10-15: sense information. 
16: error flag 

( ignore/ retry/message- writer) . 
17 : message number. 

If the error was either program check or 
protection check, exit is ^o the common 
routine EXPRG. The error flag is set to 
call the message writer and, unless the 
error is on SYSRES, control returns to the 
I/O Interrupt routine to await completion 
of pending I/O requests before fetching the 
message writer. If the error is on SYSRES 
or from a fetch on SYS000, the wait state 
is entered. 



EXRTY - retry exit: 

1. If error f0ag in error queue entry does 
not indicate retry, go to EXCONl. 

2. Release error entry. 

3. Save Registers 2 and 3 and go to STRTIO 
in the Actual I/O routine to retry I/O 
request. 



EXSIO - start I/O exit§> 

1. Initialize CAW from register 6. 

2. Release error entry. 

3. Go to STRTIO+6 in the Actual I/O rou- 
tine to issue an I/O request. 



EXPRG - program check exit: 

1. Turn off retry/ignore bits in error 
flag byte of error queue entry. 

2. Take equipment check exit. 



EXEQU - equipment check exit: 

1. Set error flag of the error queue entry 
<to call the Message Writer. 

2. If error is on SYSRES or (Recurred dur- 
ing a fetch from SYS000, enter wait 
s^ate with error codes in locations 
0-3. 

3. If not, restore registers and return to 
SELECT in the I/O Interrupt routine. 
After completing the I/O awaiting exe- 
cution, the Message Writer is fetched 
to process the error. 



IONOP - device not operational: 

1. Set error code in location ('02') and 
machine check new PSW (*3F*). 

2. Save device address in I/O old PSW. 

3. Enter wait state. 



CHFAIL - I/O channel failure: 

1. Set error code in location ( , 01 f ) and 
machine check new PSW ('OF 3 ). 

2. Enter wait state. 



If the error was either unit check or 
chaining check, exit is either to the resi- 
dent error routine (device is tape) or back 
to the I/O interrupt routine to await com- 
pletion of pending I/O requests before 
fetching the device error routine. 



Unit Check and Error Recovery Exit Routines 



EXCON, EXCON 1, EXCON 2 - continue exit: 



1. 
2. 
3. 



4. 



Restore CSW from error queue entry. 
Release error entry. 
If device- end or control- unit end, 
ignore error and continue testing CSW 
in I/O Interrupt routine (at TSTUEX) . 
If not, set device -end and channel -end. 
Ignore error and continue (at TSTUEX). 



SETACT - machine cfeeck interrupt: 
S* in location 1. 



1. 
2. 



Put 

Enter wait state. 



Exit Subroutines 

GETENT: Returns address of desired error 
queue entry. 

Removes entry from error queue. 
Restores registers for return to 
I/O routines. 

Executes error- recovery channel 
programs disabled for all system 
interruptions. If error occurs, 
takes program check exit EXPRG 
with error- on- recovery message, 
(in Tape Error Recovery) : Inserts an 
I/O request at the beginning of a 
channel queue. 



DEQUER: 
RSTREG: 

ERRS 10: 



HEADQ 
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SUPERVISOR CALL INTERRUPT - CHARTS BA-BF 



Objective: To analyze the SVC code and 
transfer control to the proper SVC routine. 

Entry: From the interrupted program 
through the SVC new PSW. 

Method: The interrupt routine checks for a 
SVC of and, if present, it branches 
directly to the Channel Scheduler to handle 
the I/O command. The SVC old PSW (bytes 
32-39) is checked to determine which pro- 
gram issued the SVC and whether the SVC was 
legal . 

The SVC code in the old PSW is used to 
enter a branch table of SVC codes and rou- 
tine addresses. The address of the speci- 
fied SVC routine is picked up and control 
goes to the SVC routine. 

SVC 1 - Chart BB : Loads and executes a 
problem program phase. The Fetch subrou- 
tine (Chart BG) loads the problem program 
phase,, SVC 1 determines the entry point 
from the phase header label or from a pa- 
rameter in register and places it in 
USRPSW. The entry point is checked to make 
sure it is beyond the supervisor area. The 
phase entry address is loaded as the cur- 
rent PSW, and execution of the new phase is 
started. 

SVC 2 - Chart BB : Loads and executes a 
Type-B (synchronous) transient. Type-B 
transients may be called by the problem 
program, a Type-A transient, or another 
Type-B transient. The transient-active 
switch is turned on, and the old SVC PSW is 
saved. The Fetch subroutine (Chart BG) is 
entered at LTFETC, and it loads the Type-B 
transient routine called for. LTRPSW con- 
tains the starting address for all Type-B 
transients. This address is loaded as the 
current PSW, and execution of the transient 
is started. 



SVC 3 



Chart BB: Loads and executes a 



Type-A (asynchronous) transient. Type-A 
transients may be called by another Type-A 
transient but not by a Type-B transient or 
the problem program. The old I/O PSW is 
saved, and the Type-A transient- fetch 
switch is turned on. After getting the 
phase name, the Fetch subroutine (Chart BG) 
is entered at PTFETC to load the Type-A 
transient routine. The Type-A transient- 
fetch switch is turned off and the old SVC 
PSW is restored. The load address of the 
physical transient is returned in base 
register 15 by the Fetch subroutine. 
Branching to 8 bytes beyond it starts exe- 
cution of the Type-A transient. 

SVC 4 - Chart BB : Loads a problem pro- 
gram phase, and returns to the calling 



routine without executing the phase loaded. 
The Fetch subroutine (Chart BG) is used to 
load the phase. The entry point of the new 
phase is returned to register 1. The SVC 
old PSW becomes the current PSW and control 
is returned to the calling routine. 

SVC 5 - Chart BB : Places information 
designated by the user (MVCOM macro) into 
the communication region. The address of 
the information to be moved is placed in 
register 13. The address of the communi- 
cations region is put in register 14. The 
information the user wanted to put in the 
communications region is moved into it. 
The SVC old PSW becomes the current PSW, 
and control is returned to the calling 
routine. 

SVC 6 - Chart BC : Cancels the problem 
program. A cancel code of hex 12 is set in 
the communications region, displacement 88. 
The Type-B transient- active switch is 
turned off. An SVC of 2 fetches the 
$$BCNCL routine. On return, register 1 
contains the starting address of Job Con- 
trol which is placed in JCTPSW. JCTPSW 
becomes the current PSW. 

SVC 7 - Chart BC ; Enters the wait state 
until the completion of the I/O instruction 
in progress. The second byte of the CCB 
specified by the user in register 1 (WAIT 
macro) is tested to see if there is any I/O 
operation going on. If I/O is in opera- 
tion, bit 14 of the old SVC PSW is turned 
on to enter the wait state. If I/O was not 
in operation, the old SVC PSW is not 
changed. Making the old SVC PSW the cur- 
rent PSW will either put the system in wait 
state until an interrupt is encountered 
(normally I/O) or return it to the calling 
routine. 

SVC 8 - Chart BC : Transfers control to 
the user after execution of an OPEN, CLOSE, 
or EOV transient routine. The old SVC PSW 
is saved and the return entry point that 
was stored in register 14 is put in USRPSW. 
After checking the return address to make 
sure it is beyond the supervisor area, 
USRPSW becomes the current PSW, and control 
is returned to the user program. 

SVC 9 - Chart BC : Trans f ers cont r ol 
from the problem program to the transient 
OPEN, CLOSE, or EOV routines. The address 
of the transient routine is put in RTNPSW 
by SVC 8 when control is transferred to the 
user. SVC 9 makes RTNPSW the current PSW, 
transferring control back to the transient 
routine. 



SVC 10 



Chart BC: 



Requests an inter- 
rupt after a specified time interval. The 
user has the option of deciding when to 
have timer interrupts. When a SVC 10 
occurs, the time for the next interrupt set 
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by the user in register 1 (SETIME macro) is 
stored in hex 50. The new time of day is 
set in hex 54- The old SVC PSW becoming 
the current PSW transfers control back to 
the user's program. 



SVC 11 - Chart BD : Gives the return to 
the problem program from a Type-B tran- 
sient. The Type-B transient- active switch 
is turned off, and registers 2-15 are 
restored. I/TAPS W, which contains the reen- 
try address to the problem program, becomes 
the current PSW, and control is returned to 
the user. 



SVC 12 - Chart BD : Turns off bits spec- 
ified by register 1 in the second Job Con- 
trol switch (JBCSW1), decimal displacement 
57 in the communications region. Registers 
8-15 are restored, and the old SVC PSW 
becoming the current PSW returns control to 
the calling sequence. 

SVC 13 - Chart BD : Turns on bits speci- 
fied by register 1 in the second Job Con- 
trol switch (JBCSW1), decimal displacement 
57. Registers 8-15 are restored, and the 
old PSW becoming the current PSW returns 
control back to the calling sequence. 

SVC 1U - Chart BD : Used for end-of-job 
processing. The cancel code is reset to 
indicate a normal EOJ, and the Type-B 
transient- active switch is reset. An SVC 
of 2 fetches the $$BCNCL routine with a 
cancel code of 00. On return, register 1 
contains the starting address of Job Con- 
trol, which is placed in JCTPSW. JCTPSW 
becomes the current PSW, transferring con- 
trol to Job Control. 

SVC 15 - Chart BD : Used to test the 
tape position of SYSRES when accessing the 
relocatable and source-statement libraries. 
SVC 15 tests bit 1 of the first Job Control 
switch (JBCSWO), decimal displacement 56 in 
the communications region, to see if the 
tape-moved- bit indicator is on. If it is 
not on, the routine returns to the calling 
sequence to reposition the tape back to the 
library desired. If the tape-moved bit is 
on, the old SVC PSW is saved, and an SVC 
is issued to execute the CCB the user sets 
up for SYSRES. The old SVC PSW becomes the 
current PSW and control is returned to the 
calling sequence. 

SVC 16 - Chart BE : Sets up an entry to 
the user's program check routine. 

SVC 17 - Chart BE : Provides the return 
to the problem program from the user's 
program check routine. 

SVC 18 - Chart BE : Sets up the entry to 
the user's timer routine. 



SVC 19 - Chart BE : Provides the return 
to the problem program from the user's 
timer routine. 

SVC 20 - Chart BF : Sets up an entry to 
the user's external interrupt routine. 

SVC 21 - Chart BF : Provides the return 
to the problem program from the user's 
external interrupt routine. 

ILSVC - Chart BF : The routine that 
handles any errors in the supervisor calls. 
The transient-active switch is turned off 
and $$BCNCL is fetched to cancel the prob- 
lem program and call Job Control. 



FETCH SUBROUTINE 



CHART BG 



Objective: To load a transient routine or 
problem- pro gram phase. 

Entry: From SVC 1, SVC 2, SVC 3, or SVC 4. 

Method: The tape that contains the phase 
(SYSRES or SYSO0O) is searched in record 
format, looking at the first 61 bytes of 
each record for the desired routine. When 
the correct header label is read, the phase 
is read into storage. When the phase is 
loaded, the program returns to the SVC 
routine. 



EXTERNAL INTERRUPT - CHART BH 



Objective: To establish the cause of the 
external interrupt and to service it. 

Entry: From the interrupted program 
through the external new PSW. 

Method: An external interrupt may be 
caused by: 

® a timer interrupt. 

o the external interrupt key on the con- 
sole. 

© an external interrupt signal. 

Ti mer Interrupt : The timer is reset to 
its maximum value, and the new time of day 
is set. The addresses of the user's timer 
routine and save area are set in registers 
12 and 13. 

E xternal Interrupt Key : The addresses 
of the user's key routine and save area are 
set in registers 12 and 13. 

For either interrupt, the routine and 
save-area addresses are checked to be sure 
they are within the problem-program area. 
The address of the user's routine is set in 
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SVPSW, and making it the current PSW trans- 
fers control to the user's external- 
interrupt key routine. 

If the user's routine address or save 
area are not within the problem program 
area, SVPSW contains the address of the 
interrupt , and control is transferred back 
to the problem program. 

External Interrupt Signal ; Control 
returns to the user. The external 
interrupt signal is not supported in this 
program. 



IBM Routine ; The program-check code 
corresponding to the interruption code is 
set in the cancel code, byte 88 of the 
communications region. The Type-B 
transient-active switch is turned off and a 
supervisor call of 2 fetches $$BCNCL. 
$$BCNCL calls the $$BPCHK program-check 
transient, which prints the interrupt and 
job cancel message. If requested, the dump 
transient will dump the registers and the 
problem program area. When all requested 
information is received, the program exits 
calling Job Control. 



PROGRAM CHECK INTERRUPT - CHART BH 



TAPE ERROR RECOVERY - CHARTS CA-CD 



Objective: To establish whether the user 
has a program check routine and transfer to 
it, or abort using the IBM routine. 

Entry: From the interrupted program 
through the program check new PSW. 

Method: Control goes to the IBM program- 
check routine if the user does not provide 
his own routine, or if his routine does not 
have a legal address. Otherwise, control 
goes to the user program- check routine. 

User Routine : The addresses of the 
user's program check routine and save area 
are put in registers 12 and 13. These 
addresses are checked for legality at CHK1. 
The address of the user program-check 
routine is set in SVPSW. SVPSW becoming 
the current PSW transfers control to the 
user's program check routine. 



Objective: To test sense data to determine 
the tape error recovery procedures. 

Entry: From the unit- check routine when a 
unit check or chaining check occurs on a 
tape device. 

Method: Just before entry to this routine, 
a sense command is issued, initializing 
bytes 10-15 of the error queue entry with 
sense information. This routine saves the 
address of the CCW causing the interruption 
in preparation for retrying the I/O in 
error. 

The sense bits are then tested in the 
order shown in Figure 18. If a retry can 
be executed, the retry exit (EXRTY) or the 
reposition and retry exit (EXSIO) is taken. 
Otherwise, the correct error exit is pro- 
vided. If TEB has been specified, error 
counts are updated. 
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SENSE BIT 


ERROR TYPE 


RETRY PROCEDURE 


ERROR EXIT 
(see Unit Check) 


Byte Bit 2 


Bus Out Check 


Reposition tape and retry eight times. Turn 
off retry flag. 


EXEQU 


Byte Bit 3 


Equipment Check 




EXPRG 


Byte Bit 1 


Intervention 
required 




EXCON if channel 
end, or EXEQU 


Byte Bit 5 


Overrun 


Reposition tape and retry eight times. Turn 
off retry flag. 


EXEQU 


Byte Bit 4 


Data Check 


1 . Control Command - Retry 15 times. 

2. Read Command - Turn on "selected er- 
ror" flag. 

a. Retry if record length is less than 
12 and the sense bit indicating 
noise (byte 1 bit 0) is off. 

b. Otherwise retry 100 times with re- 
positioning performing CRC correc- 
tion and tape cleaning every eight 
retries. Turn on ignore flag. Turn 
off retry flag . 

3. Write Command - Backspace erase and 
retry 15 times. Turn off retry flag. 


EXEQU 

EXEQU 
EXEQU 


Byte Bit 7 


Data Converter 
Check 


Post bit 4 in CCB byte 3. 


EXCON 


Byte Bit 


Command Reject 




EXEQU if write 
command and file 
protect, or EXPRG 


CSW status 
byte 


Chaining Check 


Reposition tape and retry eight times. Turn 
off retry flag. 


EXEQU 


no sense bits 






EXEQU 



Figure 18 „ Tape Error Recovery Procedures 
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PHYSICAL IOCS ERROR TRANSIENT ROUTINES 



This group of Type-A transient routines is 
used by the Supervisor nucleus to process 
I/O errors on devices other than the resi- 
dent device (tape) . These routines issue 
an error message and determine the error 
exit. 

The Supervisor communications region 
displacement 98 contains the address of a 
block of information in the unit- check 
routine providing these transients with the 
addresses of the error queue entry and the 
error exits. 

The routines reside in the core image 
library. The name of each routine begins 
with the characters $$A. Each routine is 
read into the Type- A transient area by the 
Supervisor nucleus (SVC 3). 



MESSAGE WRITER - CHARTS CE-CG 



Objective: To write out error information 
after an I/O error has been processed. 

Entry: From the Actual I/O routine when 
I/O has been completed and there are error 
queue entries to be processed. 



the error message. In addition to the 
information provided by Phase 1, the mes- 
sage contains the following* 

• The logical unit name and the device 
address from the CCB. 

• The command code from the CCW just 
executed. 

• The command address, status, and count 
from the CSW. 

• The sense bytes from the error queue 
entry. 

• The address of the CCB. 

Figure 19 is a sample error message. 
Exit is to fetch Phase 3. 

Phase 3 ($$ANERRO ) writes the error 
message on SYSLOG, if SYSLOG is assigned. 
If operator action is expected, exit is to 
fetch Phase **. If the message is for 
information, the continue exit is taken 
(see EXCON in the Unit Check routine). If 
the target indicator is cancel rather than 
ignore, the cancel switch is set before 
exit. 

Phase <♦ ($$ANERRP ) allows operator com- 
munication with the error recovery routine. 
Locations 0-3 are set with the error mes- 
sage number, the operator action indicator, 
and the device address. A new PSW that 
allows return to this phase is set in the 
external new PSW, and wait state is entered 
enabled only for external interrupts. 



Method: The Message Writer consists of 
four overlays which build an error message, 
write it on SYSLOG, and if required, accept 
an operator response. 

Phase 1 ($$ANERRM ) of the Message Writer 
stores message information in the last 20 
bytes of the Type-A transient area as fol- 
lows. 

Bytes 0-3: the CCB address from the 

channel queue entry, if obtainable. 

Bytes 4-5: a message number taken from 
the error queue entry and converted 
to decimal. 

Byte 6: operator's action indicator I 
(information) or A (action). 

Byte 7-8: target indicators C (cancel), 
R (retry), and I (ignore). 

Bytes 9-18: 10- character message. 

If neither the retry nor the ignore bits 
are on in the error queue entry, the indi- 
cators are set to I and C. If requested by 
the user, device-end and selected errors 
are posted in the CCB. Exit is to fetch 
Phase 2. 

Phase 2 ($$ANERRN ) uses the last 116 
bytes of the Type-A transient area to build 



When an interrupt occurs, control 
returns to this phase. A test is made for 
the cause of the interrupt. Any cause 
other than a key interrupt is saved for 
later processing. (The I/O old PSW and the 
external old PSW are interchanged so that 
when the I/O interrupt is completed, the 
external interrupt will be processed before 
returning to the user. ) 

When a key interrupt occurs, a test is 
made to determine if SYSLOG is a 1052. If 
not, the operator is expected to have 
placed his response in location 4 during 
the wait state. Valid responses are: 

X'01 f retry 

X'0 2 i ignore 

X f 03 f cancel 
If no valid response is present, the wait 
state is reentered. 

If SYSLOG is a 1052, a response is 
accepted from the operator. Valid 
responses are retry, ignore, and cancel. 
An invalid response results in an error 
message, and a new operator response is 
accepted. 

A cancel response sets the cancel switch 
and takes the continue exit (see EXCON in 
the Unit Check routine) • An ignore 
response is invalid for certain errors. If 
valid, it takes the continue exit- The 
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retry response is also invalid for certain 
errors. If valid, it clears the CCB com- 
munications bytes and the retry counter and 
takes the retry exit (see EXRTY in the Unit 
Check routine) . 



(OP11A |IR DATA CHECK SYS001 = 190 
J JCCSW = CCW1W2W3W4W5W6W7 



ISNS = S1S2S3S4S5S6 CCB = AAAAAA 



+- 



_ ——————— --7^—* 

| OP (standard message code 

|11 (message number for DATA CHECK 

Y 1 ^ 

| A (operator's action indicator 

| IR j ignore and retry responses 
| | allowed 

(SYS001 (logical unit in error 

, + -j 

(190 (address of device in error 
|CC (command in error 
(W-W (CSW information 



H- 



H 



|S-S (sense information 
| A- A ( CCB address 

Figure 19. Error Message from the Message 
Writer 



DEVICE ERROR RECOVERY - CHARTS CH-CK 



Objective: To test sense data to determine 
the error recovery procedures for nontape 
devices. 

Entry: From the Actual I/O routine when 
I/O has been completed and there are error 
queue entries to be processed. 



Method: The device- error routines consist 
of two overlays that test the sense infor- 
mation and determine the error exit. 



Phase 1 ($$ANERRU ) tests for unknown 
devices and impossible sense information. 
If valid error information is found, exit 
is to Phase 2. Otherwise the program check 
error exit (see EXPRG in the Unit Check 
routine) is taken. Figure 20 shows the 
devices supported and the sense bits recog- 
nized on them. 

Phase 2 ($$ANERRV ) tests the sense 
information in the order shown in Figure 
21. If a retry can be executed, the retry 
exit is taken (see EXRTY in the Unit Check 
routine). Otherwise the correct error exit 
is provided. 



^*v. Sense 

n 7^\Bits 
Device ^" 





1 


2 


3 


4 


5 


6 


1052 


X 


X 


X 


X 








2501 


X 


X 


X 


X 


X 


X 




2540R 


X 


X 


X 


X 


X 




X 


2520P 


X 


X 


X 


X 








2540P 


X 


X 


X 


X 


X 




X 


1442P 


X 


X 


X 


X 








1442 R/P 


X 


X 


X 


X 


X 


X 




2520 R/P 


X 


X 


X 


X 


X 


X 




1403 


X 


X 


X 


X 


X 






1443 


X 


X 


X 


X 









Figure 20. Devices Supported by Device 
Error Recovery 
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Sense Bit 


Error Type 


Retry Procedure 


Error Exit 

(see Unit Check) 


3 


Equipment 
Check 


2540 Reader: 

2540 Punch: Turn on ignore; turn off retry. 

1052: Retry once; turn on ignore. 

1403/1443: Turn on ignore. 

other: 


EXEQU 
EXEQU 
EXEQU 
EXEQU 
EXEQU 


1 


Intervention 
Required 


1052: Turn on ignore. 


EXCON if channel 
and device end; 
otherwise EXEQU 

EXEQU 


2 


Bus Out 
Check 


1052: Retry once. 

Retry if neither channel nor device end. Other- 
wise exit. 


EXEQU 
EXEQU 


4 


Data Check 


1403: Turn on ignore; turn off retry, 
other: 


EXEQU 
EXEQU 


5 


Overrun 




EXEQU 





Command Reject 




EXPRG 


6 


Unusual Command 
Sequence 




EXCON 


CSW Status 
byte 


Chaining Check 




EXEQU 


no sense 
bits 






EXEQU 



Figure 21. Device Error Recovery Procedures 



SUPERVISOR TRANSIENT ROUTINES 



11. However, several routines exit to 
other areas of the nucleus. 



This group of Type-B transient routines is 
used by the Supervisor nucleus to perform 
services on request. These services may be 
requested by the programmer (PDUMP), by Job 
Control (RSTRT), or by the Supervisor 
nucleus itself (PCHK). 



The routines reside in the core image 
library. The name of each routine begins 
with the characters $$B. Each routine is 
fetched into the Type-B transient area by 
the Supervisor nucleus (SVC 2). Normal 
return to the Supervisor nucleus is an SVC 



The routines are described in alphameric 
order as they appear in the core image 
library. Note that some Type-B transients 
(for example, $$BOPEN) not included in this 
group are described in the I BM System/360 
BOS Logical IOCS 16K Tape PLM , Form 
Z24-5018. 
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CHECKPOINT <$$BCHKPT) CHART DA 



Objective: To write a checkpoint on an 
output tape. 

Entry: Called by a CHKPT macro instruc- 
tion. 

Method: A checkpoint is a group of records 
containing all necessary information to 
duplicate the status of a problem program 
on request (RSTRT) . The macro provides 
this routine with the field shown in Figure 
22 (address in register 0). 



Bytes 69-123 contain information saved 
from the communications region. 



5mmu 









Tape 














Position 






CHKPT 




Restart 


High-Byte 


Status 






Unit 


L 


Address 


Address 
1 1 


Address 


1 


■or 


Num 

i i 







4 8 




12 




13 



Figure 22. Checkpoint Field 

The routine adds one to the serial num- 
ber of the last checkpoint (displacement 
92-9 3 of the communications region). The 
sum is used as the checkpoint identifi- 
cation number of the checkpoint being writ- 
ten. 

The routine first writes a header on the 
device specified by the checkpoint unit 
number. The header is 20 bytes long. 

1. Bytes 1-12 contain /// CHKPT //. 

2. Bytes 13-14 contain the number of pro- 
gram records. 

3. Bytes 15-16 contain the length of the 
last program record. 

4. Bytes 17-20 contain the checkpoint 
record identification number (l f 2 f 3, 
etc.) . 

The routine then writes a 123-byte 
record saving restart information. 

1. Bytes 1-4 contain the address of the 
last byte in the checkpoint. 

2. Bytes 5-64 contain saved general reg- 
isters. 

3. Bytes 65-68 contain the address of the 
beginning of the CHKPT macro expansion. 



Program records follow in blocks of 
32,768 bytes (32K). If the last program 
record is less than 100 bytes, it is made 
to be 100 bytes long by padding. The last 
record is a trailer 20 bytes long. The 
trailer record is identical to the header 
record. 

When a checkpoint is taken , the message; 
CHKPT XXXXX HAS BEEN TAKEN , is printed. If 
the unit for checkpoint is not a tape, the 
message : UNIT FOR CHKPT NOT A TA PE - CHKPT 



IGNORED , is printed, 
calling routine. 



Return is to the 



CANCEL ($$BCNCL) CHART DB 



Objective: To determine the message and 
exit for a preset cancel code in the Super- 
visor. 

Entry: Called by the CANCEL macro or oper- 
ator command (see $$BMSGIN) , or by the 
Supervisor. 

Method: When this routine is entered, a 
cancel code of one byte has been placed in 
the communications region (displacement 
88). This code is used to determine the 
action taken by this routine. The null 
code is •00 i . The legal codes are shown in 
Figure 22. 

Before the cancel code is analyzed, all 
PUBS are checked for I/O completion. If 
the null code is present, there is an 
immediate exit to the calling routine after 
loading Job Control into the problem pro- 
gram area. 

The routine then analyzes the cancel 
code and takes the action shown in Figure 
23. The cancel code and the CATAL switch 
in the communications region are reset. If 
the dump switch in the communications 
region is on, exit is to the dump routine 
$$BDUMP. Otherwise, Job Control is loaded 
into the problem program area and exit is 
to the calling routine. 
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Code 


Condition 


Action 


01 through OF 


Program check 


Fetch $$BPCHK 


10 


Illegal SVC 


Fetch $$BILSVC with register at 1 . 


11 


Phase not found 


Fetch $$BILSVC with register at 0. 


12 


Operator intervention 
Programmer request 


Write message 

Turn off dump switch and write message 


14 


Invalid CCB address 


Write message 


15 


Undefined logical unit 


Write message 


16 


Device not assigned 


Write message 


17 


Reading past /& statement 


Write message 


18 


I/O error 


Write message 


19 


I/O operator option 


Write message 


1A 


I/O error queue overflow 


Write message 



Figure 23. Cancel Codes 



DUMP ($$BDUMP) CHARTS DC AND DD 



Objective: To give a dump on SYSLST 
(printer or tape) of: 

1. General registers 

2. Floating point registers 

3. Communications region 

4. Supervisor and problem program area. 



DUMP exits to Job Control for EOJ when 
SYSLST is unassigned or the dump is com- 
plete. In case of an end-of-reel condition 
before DUMP is complete on SYSLST, $$BE0VRT 
is called. 



END OF VOLUME ($$BEOVRT) CHART DK 



Entry: Called by a DUMP macro or by the 
Supervisor. 



Method: After initialization for the spec- 
ified device, the subroutine PGHD (Chart 
DD) writes a header. The number of lines 
per page and the heading-line information 
are specified in the Supervisor. 

Print lines r in which all words are 
equal, are condensed as follows: 

1. The first word is printed. 

2. The second is replaced by — SAME — « 
The remainder of the line is blank. 

3. No spacing or printing occurs for all 
equal lines that follow. 

4. Printing and storage-location designa- 
tions continue when unequal adjacent 
words are encountered. 

The last line is printed, equal or not. 



Objective: To cancel the job when a tape 
end- of -volume condition is encountered on 
SYSLST or SYSPCH. 

Entry: Called by another transient or a 
problem program not using logical IOCS. 

Method: A message is written on SYSLST 
indicating job cancellation because of an 
end-of-volume condition, and giving the 
device address of the unit at end-of- 
volume. The unit (SYSLST or SYSPCH) is 
closed by writing a tape mark, an end-of- 
volume trailer, and two tape marks, and by 
rewinding and unloading the tape. The unit 
at end-of-volume is unassigned. 

A similar message is written on SYSLOG. 
The cancel bit and the operator- pause bit 
are set on in the Job Control switch bytes 
in the Supervisor communications region. 
Exit is to Job Control with an SVC 14. 
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ILLEGAL SVC MESSAGE ($$BILSVC) CHART DE 



Objective: To write a message on SYSLOG 
and SYSLST when a phase has not been found 
or an invalid SVC code has been detected. 

Entry: Called by $$BCNCL when a phase has 
not been found or an invalid SVC code is 
detected. 

Method: This routine builds the phase-not- 
found message or the invalid-SVC message 
and prints it on SYSLOG and SYSLST (printer 
or tape) along with a job- cancel message. 
It sets the cancel switch for Job Control 
and exits calling Job Control or the dump 
routine ($$BDUMP). 



HDR1 record is written, 
the calling program. 



Control returns to 



When an error occurs because an output 
tape is file-protected , an output tape has 
no label, or an output tape still active, 
control goes to the routine ERROUT, which 
lists a message on SYSLOG. If SYSLOG is 
not a 1052, the cancel switch is set and 
return is to EOJ in Job Control. If SYSLOG 
is a 1052, the operator may type a response 
of RETRY (rewind and return to sense file 
protect) or IGNORE (write HDR1 label and 
tape mark and return to the calling 
routine). IGNORE is not a valid response 
for the error condition of attempting to 
open a file- protected output file. 



JOB CONTROL OPEN FOR TAPE ($$BJCOPT) 
CHART DF 



Objective: To open I/O tape units 
necessary for system operation. 

Entry: Called by Job Control when: 

1. SYSRDR, SYSIPT, SYSPCH, or SYSLST is 
assigned to a tape unit. 

2. the option LINK is present to open 
SYS000. Called to open SYS001 and 
SYS002. 

Method: After initializing the CCB and 
CCW, the PUB for the device to be opened is 
located for the device address. A rewind 
command is issued. 

If the tape is an output file, the rou- 
tine checks that the tape is not file- 
protected. In any case the first record is 
read. The first read is in standard mode. 
If an I/O error occurs, a read in user mode 
is issued. If an error occurs again, a 
read with retries is issued in the standard 
mode. 

If a unit exception but not a tape mark 
occurs, control returns immediately to the 
calling routine. If anything else but a 
VOL1 label is read, the tape is rewound. 
If it is an input file, control returns to 
the calling routine. If it is an output 
file, an error has occurred. 

When a VOL1 label is read on an input 
file, the tape is positioned beyond all 
labels and control returns to the calling 
routine. 

When a VOL1 label is read on an output 
file, the tape is positioned beyond all VOL 
labels and checked for an HDRl label and an 
inactive condition. An HDRl record and a 
tape mark are written on the file. If 
there are no VOL1 labels on the file, no 



MESSAGE INPUT ( $$BMSGIN) CHART DG 



Objective: To process the following 
operator commands: 

• Cancel 

• Pause 

• Log/Nolog 

Entry: Called by the I/O Interrupt routine 
on an attention signal. 

Method; SYSLOG must be assigned a 1052. 
If not, control returns to the calling 
routine. Otherwise, a ready message is 
written on SYSLOG and an operator entry is 
read. 

If no entry is made, control is returned 
to the calling routine. A cancel entry 
fetches the cancel routine ($$BCNCL) . 
Pause, log, and nolog entries condition a 
bit switch for EOJ pause, or a bit switch 
for SYSLOG printout, and return to read 
another operator command. All other 
entries are illegal. An error message is 
printed on SYSLOG and a correct command can 
be issued. 



PROGRAM CHECK ($$BPCHK) CHART DH 



Objective: To print a message on SYSLOG 
and SYSLST when a program check interrup- 
tion occurs. 

Entry: Called by $$BCNCL when a program 
check interruption occurs. 

Method: This routine builds the interrupt 
and job-cancel message, and prints on SYS- 
LOG and SYSLST (printer or tape) . It sets 
the cancel switch for Job Control and exits 
calling Job Control or the dump routine 
($$BDUMP). 
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PROGRAM DUMP ($$BPDUMP) CHARTS DC AND DB 



Objective: To give a dump on SYSLST 
(printer or tape) of: 

1. General registers 

2. Floating point registers 

3. Requested portion of main storage 
pointed to by register 0. 

Entry: Called by a PDUMP macro. 

Method: After initialization for the spec- 
ified device, the subroutine PGHD (Chart 
DB) writes a header. The number of lines 
per page and the heading-line information 
are specified by the Supervisor. 

Print lines, in which all words are 
equal, are condensed as follows: 

1. The first word is printed. 

2. The second is replaced by — SAME — . 
Remainder of the line is blank. 

3. No spacing or printing occurs for all 
equal lines that follow. 

4. Printing and storage location designa- 
tions continue when unequal adjacent 
words are encountered. 



int identification number is encountered. 
The job name in the saved communication 
region record must be the same as the cur- 
rent job name. The size of the current 
problem program area must be equal to or 
larger than that of the checkpointed prob- 
lem program area. The size of the current 
Supervisor must be equal to the size of the 
Supervisor for the checkpointed program. 



When the correct checkpoint is found: 
1. The communication region is restored. 
The problem program is restored. 
Each logical IOCS file is repositioned 
using the block count as specified in 
the DTF. A table of DTF addresses for 
the files to be repositioned must be 
maintained by the user. 

Each physical IOCS file is repositioned 
using a logical unit address, tape mark 
count, and record count. A table of 
this information must be maintained by 
the user. 

The PSW is prepared with the restart 
address. 

The general registers are restored 
after returning to Supervisor control. 



2. 
3. 



4. 



5. 



6. 



The last line is printed, equal or not. 



PDUMP exits to Job Control for EOJ when 
SYSLST is unas signed or the dump is com- 
plete. In case of an end-of-reel condition 
before DUMP is complete in SYSLST, $$BEOVRT 
is called. 



RESTART ($$BRSTRT) CHART DJ 

Objective: To load a checkpoint from tape, 
and to give control to the new problem 
program. 

Entry: Called by Job Control. 

Method: A checkpoint is a group of records 
containing all the necessary information to 
duplicate the status of the problem program 
at a given time. Job Control provides this 
routine with a PUB address in register 2 
and the unit number and checkpoint iden- 
tification number in register 3. The user 
is responsible for rewinding all tapes. 

To locate the checkpoint, the tape unit 
specified in the PUB is read until a 
checkpoint header with the correct check po- 



MACRO ROUTINES 



Three types of macro instructions are 
included in the 16K tape BOS: 

• Logical IOCS macros. 

• System Generation macros. 

• Supervisor Communication macros. 

A description of the logical IOCS macros is 
given by the IBM System/360 BOS Logical 
IOCS 16K Tape PLM , Form Z24-5018. 



SYSTEM GENERATION MACROS 



These routines enable the user to build a 
Supervisor according to specifications. 
Required macros - SUPVR, CONFG, JCOPT, 
IOTAB, PIOCS, and SEND - are the various 
sections of the Supervisor. Optional 
macros - DVCGEN, ASSGN, and OPTION - ini- 
tialize tables and flags. Figure 24 shows 
the order in which the macros are given and 
the sections of the Supervisor they build. 
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I Macro 
H 

JSUPVR 

J- 

| CONFG 

I 
JJCOPT 



Builds System/360 Constant Area 
Build Communications Region 



^ + 

JIOTAB 

I 

I DVCGEN 



h 



JASSGN 



-+ 



Action 






Builds Null I/O Tables 



-I 



Inserts PUB table entries 



— 4 



Inserts LUB table entries 



H 



| OPTION) Sets flags to include specified 
interrupt routines 

|PIOCS (Builds Physical IOCS routines 

(Channel Scheduler, Actual I/O, 
I/O Interrupt, and Unit Check) 

h + 1 

I SEND (Builds other interrupt routines 
|and the resident error routine. 
(Sets the beginning of the problem 
| program area. 

Figure 24. Supervisor Generation Macros 



j Operation | Operand 

h + 4 

IJCOPT |DECK=YES/NO, LIST=YES/NO, 
j LISTX= YES/NO, SYM=YES/NO, 
|XREF= YES/NO, ERRS=YES/NO, 
|CHARSET=48C/60C, LOG= YES/NO, 
|DUMP=YES/NO, LINES=nn, 
|DAT£=MDY/DMY 

L Jl J 

From DATE sets configuration byte 
(displacement 53). 

From DECK, LIST, LISTX f SYM, XREF, ERRS, 
and CHARSET provides standard setting of 
the third Job Control switch (see JBCSW2 in 
Job Control ) in displacement 54. 

From DUMP and LOG provides standard 
setting of the fourth Job Control switch 
(see JB CSW3 in Job Control ) in displacement 
55. 

Generates the remainder of the communi- 
cation region. The address of the TEB 
table is given only if TEB is specified in 
the CONFG macro. The number of lines for 
SYSLST is taken from LINES. 



j Operation | Ope ra nd 
) j. + 

| SUPVR | TAPE 



1 

I 

— ^ 



j 



Generates PHASE and CSECT statements. 

Generates constants to initialize the 
System/360 constant area. These are zeros 
except for address of communications 
region, timer and time of day, and pSW's. 



j Operation j Operand 



|CONFG |MODEL=nn, SP=YES/NO, 

| |D£C=YES/NO, FP=YES/NO, 

j |TIMER=YES/NO, CHANS W= YES/NO, 

j | BURSTMX= YES/NO, T£B=YES/NO 



-j 



J 



Determines the origin of the communi- 
cations region. 

Generates a section of the communi- 
cations region through the machine configu- 
ration byte (displacement 52). The last 
byte is initialized from SP, DEC, FP, 
TIMER, CHANSW, BURSTMX. 

Sets a switch to indicate if the TEB 
option is present. 



j Operation j Operand j 

(IOTAB |MTP=nl, NTP=n2, PGR=n3, JIB=n4, | 
| |CHANQ=n5 | 

Checks the parameter sizes. 

Calls the macro INTEQU which generates 
equates for the I/O tables. 

Generates : 

1. a channel queue (CHANQ) table 

2. a physical unit block (PUB) table 

3. a job information block (JIB) table 

4. if requested, a tape error block (TEB) 
table 

5. a logical unit block (LUB) table. 

There are n5 CHANQ entries, nl+n2 PUB 
entries, n4 JIB entries, nl TEB entries, 
and n3+10 LUB entries. 



| Operat ion j Operand j 

(DVCGEN |CHUN=X , CUU f , DVCTYP=XXXXXX, | 
| | CHANSW= YES/NO, MODE=X f SS' j 

Generates a PUB entry. PUB's are gener- 
ated in the order in which the DVCGEN 
macros are given. 

Bytes 0-1: channel and unit address from 

CHUN. 
Byte 2: null CHANQ pointer •FF'. 
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Byte 3: if tape and TEB option provided, 

the next sequential TEB pointer; 

otherwise 'OO*. 
Byte 5: if not tape, '00'; if tape and 

no MODE given, '93*; otherwise 

•SS f from MODE. 
Byte 6: channel scheduler flag; bits 1 

and 7 set from CHANSW and 

DEVTYP. 
Byte 7: job control flag • 00 f . 



I Operation j Operand 
I- + 



j. 1 .! 

IASSGN JSYSXXX, X'CUtT j 



Calculates addresses: 

NUCEND = last byte of coding in the 

Supervisor nucleus. 
SYSEND = ADDR-1504; the beginning of the 

transient areas. 
PTA = SYSEND; beginning of the Type-A 

transient area. 
LTA = SYSEND+504; beginning of the Type-B 

transient area. 
PPBEG = ADDR; beginning of the label 

area. 
SUPEND = ADDR-1; end of Supervisor. 
EOSSP = if no storage-protection, PPBEG; 

if storage- protection, the first byte 

not storage- protected 0; beginning of 

the problem program. 






Generates a LUB entry. A DVCGEN macro 
must have been given for the the device 
specified. 

LUB PUB- pointer: from information gener- 
ated in DVCGEN 
LUB flag: f 41 f 
initializes PUB job control flag. 



| Operation j Operand 
V +- 



| OPTION 

l 



|OC=YES/NO, IT=YES/NO, PC=YES/NO| 



Sets switches to include coding for 
operator communications external interrupt, 
interval timer external interrupt, and 
program check interrupt. 



j Operation | Operand | 

|PIOCS | SELCH=YES/NO, SETMOD= YES/NO, | 
j | RWTAU=YES/NO j 

Sets switches to include coding for 
selector channel, 7-track tape, and read- 
while- write tape control unit. 

Calls the macro SGTCHS to include coding 
for the Channel Scheduler, Actual I/O, and 
I/O Interrupt routines. 

Calls the macro SGUNCK to include coding 
for the Unit Check routine. 



| Operation | Operand 

| SEND | ADDR 

l i. 



-H 

I 
— J 



Calls macros SGTCON, SGFCH, SGSVC, and 
SGTPE to include the remainder of the 
Supervisor nucleus. 



SUPERVISOR COMMUNICATION MACROS 



These routines enable the programmer to 
enter or change the Supervisor and to con- 
trol program flow. 



Macros GETIME, SETIME, COMRG, and MVCOM 
provide access to the timer and communi- 
cations region in the Supervisor. 

• GETIME makes available the timer value 
in a specified form. 

• SETIME sets the timer to a specified 
value through an SVC. 

• COMRG makes available the address of 
the communications region. 

• Kft/COM places specified values in the 
communications region through an SVC. 

Macros FETCH, LOAD, STXIT, EXIT, EOJ, 
and CANCEL communicate through an SVC with 
prog ram- retrieval, user- interrupt, and 
end-of-job routines in the Supervisor. 

Macros DUMP, PDUMP, and CHKPT provide 
access to an appropriate transient routine 
through an SVC. 

Macros CCB, EXCP, WAIT, and CHNG com- 
municate with the physical IOCS routines in 
the Supervisor. 

• CCB generates a 16-byte channel command 
block. 

• EXCP initiates the IOCS program through 
an SVC. 

• WAIT tests the traffic bit in the chan- 
nel command block, returning to the 
Supervisor through an SVC if it is not 
on. 

• CHNG generates nothing; it is present 
for reasons of compatibility. 

Macros CALL, SAVE, and RETURN provide 
direct linkage between routines within the 
problem program. 
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j Name | Operation j Operand j 

|NAME|CALL |Pl, P2 | 

t L ± j 



Checks for the presence of PI. If PI is 
absent, a message is issued and the macro 
is ignored. 

Notes the number of elements in P2 (may 
be zero) . 

Checks if PI is a register but not (15). 
If not (15), a warning is issued and the 
routine continues assuming PI is (15). 

Generates coding which sets register 15 
to the routine address (PI), register 14 to 
the return address , and register 1 to the 
address of the parameter list. Generates 
the parameter list from P2 if P2 is pre- 
sent. 



r T T 

| Name | Operation) Operand 

| NAME | CANCEL | 






J 



Generates coding which clears register 
and issues a supervisor call of 6. 



j Name | Operation (Operand ( 

|CCBN|CCB |SYSXXX, CCWADD, OPTIONS | 

Checks for the presence of CCBN. If 
CCBN is absent, a warning is issued and the 
routine continues. 

NAMOK : Checks type and form of SYSXXX. 
If incorrect a warning is issued and the 
routine continues, generating X'FFFF* for 
the logical unit address. 

Calculates unit number and unit type 
(system or programmer). 

FND: Checks for the presence of CCWADD. 
If CCWADD is absent, a warning is issued 
and the routine continues assuming CCWADD 
is zero. Checks type of CCWADD and issues 
warning if type is incorrect. 

CKOPT : Checks for the presence of 
OPTIONS. If OPTIONS is absent, it is 
assumed zero. If OPTIONS is not in the 
proper form CX'nnnn'), a warning is issued 
and OPTIONS is assumed 0. 

Sets a field of switch values from 
OPTIONS. 



Generates a 16-byte field with the label 
CCBN. 

Bytes 0-1: zeros. 

Bytes 2-3: switch values from OPTIONS. 

Bytes 4-5: zeros. 

Byte 6: unit type from SYSXXX. 

Byte 7: unit number from SYSXXX. 

Byte 8: zero. 

Bytes 9-11: CCW address from CCWADD. 

Bytes 12-15: zeros 



r T T _ , 1 

| Name | Operation J Operand | 

| LAB (CHKPT | SYS, RST, END, P | 

t JL X . J 



Checks form and range (SYS000-SYS245) of 
SYS. If incorrect, a message is printed 
and the macro is ignored. 

Generates a 2 2- byte field: 

Bytes 0-3: from RST a four- byte address 
of , FF f followed by a three- byte reg- 
ister number to specify a restart 
address. 

Bytes 4-7: from END a four-byte address 
or *FF f followed by a three- byte reg- 
ister number to specify a high-byte 
address (zeros if END not present). 

Bytes 8-11: from P a four-byte address 
or f FF f followed by a three- byte reg- 
ister number to specify a tape 
position-status address (zeros if P is 
not present). 

Byte 12: •01* 

Byte 13: the unit number from SYS. 

Bytes 14-21. $$BCHKPT 

Generates coding which places the 
address of the 22-byte field in register 0, 
the address of the transient name (byte 14) 
in register 1, and a supervisor call of 2. 



| Name j Operation] Operand 
j. + + 

j JCHNG | SYSXXX 

I J. JL 



1 






Generates no coding. CHNG is present in 
the 16K tape system to be compatible with 
the 8K system. 



| Name | Operation | Operand 
|NAME|COMRG | 



Generates coding which places the 
address of the communications region into 
register 1. 
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r 



| Name | Operation | Operand 
» 1- h 



|NAME|DUMP 
L L 



J 



j Name j Operation j Operand 
j. + + 

j NAME j GET IME 



I 
1 

I 
.J 



Generates coding that places into reg- 
ister 1 the address of a field containing 
the name $$BDUMP and issues a supervisor 
call of 2. 



j Name j Operation j Operand j 

, + + i 

JNAMEJEOJ j j 

l X L j 

Generates a Supervisor call of 14. 



j r r — _ — 

| Name | Operation | Operand 

|NAME|EXCP |CCB | 

i L L J 

Checks for the presence of CCB. If CCB 
is absent, a message is issued and the 
macro is ignored. 

Generates coding that places the CCB 
address in register 1 [it could already be 
there if CCB is (1)3, and issues a Supervi- 
sor call of 0. 



Checks thai:. PAR is STANDARD, BINARY, TU, 
or blank (blank is same as STANDARD). If 
PAR is none, of these, a warning is issued 
and the routine continues assuming PAR is 
STANDARD. 

Generates coding that places in register 
1 the time of day minus the timer divided 
by 256. If PAR is TU, no more coding is 
generated. 

Generates coding that divides the con- 
tents of register 1 by 300 leaving the 
number of seconds in register 1. If PAR is 
BINARY, no more coding is generated. 

Generates coding that: 

1. converts to decimal and moves minutes 
and seconds into a save area in the 
form of 000MMSS-, 

2. converts to decimal and moves to reg- 
ister 1 the hours, 

3. combines the results in the form of 
HHHMMSS- in register 1. 



j Name j Operation j Operand j 

| NAME | LOAD | PHNM, LDPT | 



r r 

Name | Operation J Operand 
+ +- 



I EXIT 



~L. 



|TY 
-JL 



— 1 

I 
J 



Checks that TY is PC, IT, or OC. If TY 
is none of these specifications, a message 
is issued and the macro is ignored. 

Generates a Supervisor call of 17, 19, 
or 21 for PC, IT, or OC, respectively. 



Checks for the presence of PHNM. If 
PHNM is absent, a message is issued and the 
macro is ignored. 

Generates coding that places the address 
LDPT in register [it could already be 
there if LDPT is (0)3. If LDPT is not 
specified, zeros are put in register 0. 

Generates coding that places the address 
PHNM in register 1 and issues a supervisor 
call of 4. 



j Name) Operation (Operand 



| NAME) FETCH 



| PHNM, ENTRY 



-H 






Checks for the presence of PHNM. If 
PHNM is absent, a message is issued and the 
macro is ignored. 

Generates coding that places the address 
of the phase name in register 1, the 
address of the entry point (zeros if ENTRY 
is not specified) in register 0, and issues 
a supervisor call of 2. 



I T T -" *" 1 

| Name | Operation | Operand | 

| + + - ^ 

|NAME|MVCOM JTO, LNG, FROM | 

L X JL J 

Checks that TO, LNG, and FROM are cor- 
rect in form and magnitude. If incorrect, 
a message is issued and the macro is 
ignored . 

Generates coding that places the address 
FROM in register 0, places the address of a 
move instruction containing TO and LNG in 
register 1, and issues a supervisor call of 
5. 
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r T r 

I Name | Opera tion | Operand 

j. + 1 

i JNAMEJPDIMP | START, END 
L X JL 






r T T 

| Name ( Operation | Operand 

| NAME | SETIME | SEC 

L X X 






Checks for presence of START and END. 
If either is absent, a message is issued 
and the macro is ignored. 

Generates coding that places into reg- 
ister 1 the address of a field containing 
the name $$BPDUMP, places into register 
the address of a field containing addresses 
START, END, and issues a supervisor call of 
2. 



Checks for the presence of SEC. If SEC 
is absent, a message is issued and the 
macro is ignored. 



Generates coding that loads the address 
of the number of seconds into register 1, 
multiplies by 256*300 (result in registers 
and 1), and issues a supervisor call of 
10. 



j Name) Operation | Operand 
| NAME I RETURN | REGS 



T 

I 
1 

I 
J 



Checks REGS for correct form. If incor- 
rect, a warning is issued and the routine 
continues assuming the form (Rl). 

Checks the type and magnitude of the 
first register. If incorrect a warning is 
issued and the routine continues assuming 
the value of Rl is 14. 

If REGS has only one element (Rl) , 
RETURN generates a store- register of Rl 
into a field relative to register 13. The 
macro generation is complete. 

Checks the type and magnitude of the 
second register, considering the value of 
the first register. If incorrect a warning 
is issued and the routine continues assum- 
ing the value of R2 is 12. 

Generates a store-multiple-register of 
Rl, R2 into a field relative to register 
13. 



j Name j Operation j Operand 

| NAME | SAVE | REGS 
I X X 









This macro is the same as RETURN except 
that a load register or a load multiple 
registers (rather than a store) is gener- 
ated to move the contents of a field rela- 
tive to register 13 to REGS. 



j Name j Operation j Operand 

| |STXIT |TY, EN, SV 



1 
^ 



Checks that TY is PC, IT, or OC. If TY 
is none of these specifications, a message 
is issued and the macro is ignored. 

Checks for the presence of EN and SV. 
If either is absent a message is issued and 
the macro is ignored. If both are absent, 
coding is generated to zero registers and 
1, indicating the user's routine is not to 
be used. 

Generates coding that places the address 
of the save area (SV) into register 1, 
places the entry point (EN) into register 
0, and issues a supervisor call of 16, 18, 
or 20 for PC, IT or OC, respectively. 



| Name | Operation | Operand 
y + + . 

| NAME | WAIT 
t X 



ICCB 



X- 



J 



Checks for the presence of CCB* If CCB 
is absent, a message is issued and the 
macro is ignored. 

Generates coding that places the address 
of the CCB into register 1, tests the traf- 
fic in that CCB, issues a supervisor call 
of 7 if the bit is off, or goes on to the 
instruction following the macro if the bit 
is on. 
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JOB CONTROL 



from SYSRDR and programmer output is on 
SYSLST. 



Job Control provides prog ram- to- program 
transition under system control. Each 
program execution is called a job step . 
Between job steps programmer or operator 
statements are read by Job Control and 
processed to initialize the system for the 
new job or job step. 

A series of job steps is called a job . 
A JOB statement marks the beginning of a 
job. A /% statement marks the end of a 
job. 

Job Control is initially brought into 
storage by IPL. An EXEC or RSTRT statement 
brings in the new problem program for exe- 
cution. At normal end-of-job (EOJ macro) 
or abnormal end-of-job (CANCEL transient), 
Job Control is brought back into the prob- 
lem program area and a new job step begins. 



Job Control also performs services for 
Linkage Editor. On an INCLtJD, data can be 
read from SYSIPT. Data and Linkage Editor 
control statements can be written on 
SYS 000. 



Furthermore, Job Control opens tape 
units assigned to SYSRDR, SYSIPT, SYSPCH or 
SYSLST. It opens SYS000 when a LINK or 
CATAL option is requested. It performs 
tape operations on any specified unit (MTC) 
and closes tape units on request (CLOSE). 



JOB CONTROL - STORAGE ALLOCATION 



JOB CONTROL - PROGRAM FLOW 



Figure 25 shows the program flow of Job 
Control. If Job Control is brought into 
storage because of an abnormal end-of-job, 
the cancel routine is executed. Otherwise, 
input statements are read from SYSRDR 
(programmer input) or SYSLOG (operator 
input) . 

Control is given to the appropriate 
statement routine. If the statement is 
EXEC or RSTRT, a new problem program is 
brought into storage for execution. Other- 
wise, on completion of the statement rou- 
tine, another input statement is read. 



JOB CONTROL - I/O FLOW 



Figure 26 displays the I/O flow in Job 
Control. Essentially operator input and 
output is on SYSLOG. Programmer input is 



Figure 27 displays main storage during 
execution of Job Control. Subroutines and 
input statement routines appear in alpha- 
betical order in storage and are described 
in the same order in this publication. 



The label area in Job Control is used to 
contain information for logical IOCS pro- 
vided by the VOL and UPSI statements. 
Before fetching a problem program, the 
label information is moved up to the label 
area following the Supervisor. 



Information that must remain in storage 
from one job step to another is kept in the 
Supervisor communication region, displace- 
ment 56-5 9. Figure 28 defines the signifi- 
cance of each bit in these four bytes* In 
Job Control they are referred to as JBCSWO, 
JBCSW1, JBCSW2, and JBCSW3. 
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Job Control 







JOBCTL | EA 


Initialize 
Check operator 
PAUSE 







© 



o- 




Log 
Statement 



*See Figure 29 for 
routine names and 
chart ID's. 



Read a 
Job Control 
Statement 



Process 

Operator 

Command 



Cancel 
Bit On 



CANCEL EG 



Read SYSRDR 
To EOF 



SYSRDR 
At EOF 
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Figure 25. Job control Program Flow 
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Programmer 
^Statements 



SYSLOG 



Operator 
Statements 




Linkage 

Editor 

Input 



SYSIPT 
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Programmer t 
Log 
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Figure 26. Job Control I/O Flow 
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Figure 27. Job Control Core Allocation 
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JBCSWO 
Displacement 56 


JBCSW1 
Displacement 57 


JBCSW2 
Displacement 58 


JBCSW3 
Displacement 59 


Bit - '80' 


FETCH from SYSOOO/SYSRES 


LINK/NOLINK 


CO 

> 1 u 

LU 

c 
-J 


DECK/NO DECK 


Job Status Bit: on by JOB 
Statement; off by /& 


Bit 1 - '40' 


SYSRES-Position-Changed; on 
by SVC for SYSRES; off by 
FETCH or LOAD 


Link Edit Permission Indicator 


LI ST/NOLI ST 


DUMP/NO DUMP 


Bit 2 - '20* 


Job Control Input SYSLOG/ 
SYSRDR 


Execute -Catalog Permission 
Indicator 


LISTX/NOLISTX 


Reserved 


Bit 3 - '10' 


Operator LOG/NOLOG 


CATAL Indicator 


SYM/NOSYM 


Programmer LOG/NOLOG 


Bit 4 - 'OB 1 


Operator Command/Programmer 
Command 


Supervisor Update Indicator 


XREF/NOXREF 


Cancel Indicator 


Bit 5 - '04' 


Operator PAUSE Indicator 


Autotest Indicator 


ERRS/NOERRS 


LIOCS Switch First-Time 
OPEN 


Bit 6 -'02' 


SYSLOG a Printer 


to 

o 

_i 

CO 

>- 

GO 


Minimum System Indicator for 
Linkage Editor 


48C/60C 


LIOCS Switch DTFCP 


Bit7-'0r 


SYSLOG and SYSLST the Same 
Device 


GO Indicator 


Reserved 


Reserved 



Note: Slash shows setting as on/off. 
Figure 28. Job Control Switch Bytes 



JOB CONTROL ROUTINES 



JOB CONTROL INITIALIZATION (JOBCTL) 
CHART EA 



Objective: To initialize between job 
steps. 

Entry: From the Supervisor when Job con- 
trol is loaded into storage. Loading 
occurs at I PL or under EOJ conditions 
(dump, cancel, or normal end-of-job). 

Method: JOBCTL is executed only once for 
each load of Job Control. After initiali- 
zation the JOBCTL area is used for I/O 
buffers. 



5. Checking the assignment for SYSRDR. If 
SYSRDR is unassigned, an immediate exit 
is taken. If SYSRDR is at EOJ (/6 
statement has been read) , control is 
given to the end-of-job routine 
(EOJRTN) . 

6. Checking the operator pause bit in 
JBCSWO. This bit is set in the Super- 
visor transient $$BMSGIN. If set, a 
message is written on SYSLOG. The read 
statement routine (STMTIN) does not 
process another statement until the 
operator provides input on SYSLOG. 

JOBCTL exits to the read statement rou- 
tine (STMTIN). 



Initialization requires: 

1. Setting register values. 

2. Calculating the length of the label 
area for VOL/TPLAB statements. 

3. Setting SYSLOG bits 6 and 7 in JBCSWO. 

4. Checking the cancel bit in JBCSW3. 
This bit is set in the Supervisor tran- 
sient routine $$BCNCL. If set, control 
goes directly to the cancel routine 
(CANCEL). 



JOB CONTROL INPUT (STiyTTIN) CHART EB 



Objective: To read a statement and trans- 
fer control to the correct processing rou- 
tine. 

Entries: 

1. Initially from the Job Control initial- 
ization routine (JOBCTL). 

2. Thereafter, from any statement process- 
ing routine except EXEC or RSTRT. 
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Method: STMTIN reads a statement through 
the subroutine RDSTMT from either SYSLOG or 
SYSRDR, depending on the setting of the Job 
Control input bit in JBCSWO. The operator 
command bit in JBCSWO is set on until a 
statement beginning with // is read* 



The subroutine SCANR1 locates the first 
operand* If the whole statement is blank. Scan for 
control goes to the IGNORE routine where Operator -< 
the Job Control input bit is set off indi- Statement 
eating next input to be from SYSRDR. Oth- 
erwise, the registers are initialized for 
use by the BTLRTN subroutine to search for 
a matching operand in TABLEl. 



If the first character of the statement 
is blank, the search begins at NOTFRS 
excluding the following statements. 

• an asterisk. Go to the comment routine 
(CMNTPR) . 

• a slash-ampersand. Go to the end of 
job routine (EOJRTN) . 

• a slash-asterisk. Go back to STMTIN. 

• a slash-slash. Go to CCPROC to revise 
search to look for a programmer com- 
mand. 



At CCPROC, which is located after the 
search table, the operator command bit in 
JBCSWO is turned off, the second operand is 
located, and the search is revised to begin 
at TABLE2. The search results in a branch 
to the correct statement processing rou- 
tine. Figure 29. 



Statement 


Chart ID 


ACTION 


EC 


CANCEL 


EG 


CLOSE 


EG 


DVCDN 


EH 


DVCUP 


EH 


ENTRY 


EC 


IGNORE 


EJ 


INCLUDE 


EC 


PHASE 


EC 


SET 


ER 


ASSGN 


ED-EF 


LISTIO 


EM 


LOG 


EN 


MTC 


EN 


NOLOG 


EN 


PAUSE 


EQ 


RESET 


EQ 


DATE 


EG 


EXEC 


EK 


JOB 


EL 


NMTLB 


EN 


OPTION 


EP 


RSTRT 


EQ 


TPLAB 


ES 


UPSI 


ER 


VOL 


ES 



Scan for 
^Programmer 
Statement 



Job Control Statement Search 
Table 



Note that some commands are both opera- 
tor command and programmer command so that 
the ranges of the search overlap. The 
search must result in a branch to some 
routine because the argument of the search 
is placed in the search table. If the 
argument is not found in the permanent 
table, and exit to the error routine NVSTMT 
is taken. 



Figure 29 reproduces the search table. 
The description of the statement routines 
is arranged in alphabetical order. 



ACTION - CHART EC 



Objective: 
SYSOOO. 



To copy the statement onto 



Entry: From the read statement routine 
{STMTIN). 

Method: This is one of the statements 
being processed for Linkage Editor. It is 
logged if required. 

The routine tests the LINK bit in 
JBCSW1. This bit is set on after the LINK 
or CATAL operand in an OPTION statement has 
been recognized and SYSOOO has been opened. 
It must be on when a Linkage Editor state- 
ment is read. 



The statement is copied onto SYSOOO. At 
COPYRT the link edit permission bit in 
JBCSW1 is turned on to indicate there is 
data present on SYSOOO. Return is to read 
another statement (STMTIN). 
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ASSGN - CHARTS ED, EE, EF 



STRPOB - address of PUB for the specified 
device 



Objective: 
unit. 



To assign a device to a logical 



Entry: From the read statement routine 
(STMTIN), when an ASSGN is given by the 
operator or programmer. 

Method: Basically the ASSGN statement must 
provide a device, X'CUU*, and a logical 
unit, SYSXXX. The ASSGN routine locates 
the PUB for the specified device, and 
inserts a pointer to the PUB in the LUB for 
the specified logical unit- 

Instead of a device, X'CUU", one of the 
conditions UA or IGN may be assigned to a 
logical unit. Then, the ASSGN routine 
inserts a null PUB- pointer and sets the 
flag in the LUB for the UA or IGN specifi- 
cation . 

Assignments are temporary or standard. 
All assignments made by the programmer 
(operator command switch in JBCSWO off) are 
temporary. Assignments made by the opera- 
tor are standard unless TEMP is specified. 
The current assignment must be considered 
when making an assignment. If a temporary 
assignment is made, the standard assignment 
may have to be saved in a JIB. 

Finally, if a tape device is specified, 
the ASSGN statement may provide a DEVOPT 
field (X'SS B ) for the PUB, or it may speci- 
fy that the assignment is alternate (ALT) 
to be saved in a JIB. 



Analyze Operands - Chart ED 



The statement is logged if required. The 
scan subroutine locates the first operand, 
which must be the logical unit (SYSXXX). 
It is checked by the subroutine CKCVLU, 
which initializes the following locations: 
LOGUNT - bits 5 or 6 on for system or 

programmer logical unit, respective- 
ly. 
LOGUNT+1 - logical unit number computed 

from XXX. 
UNCLOR - numerical combination of LOGUNT 

and LOGUNT +1. 
STRLUB - address of LUB for the specified 

logical unit. 

The scan subroutine locates the second 
operand, which must be UA, IGN or X'CUU' . 
A device specification is checked by the 
subroutine CKCVCU. This operand initiali- 
zes the following locations: 

LOGUNT - bit on if IGNj bit 1 on if UA. 
UNT - channel and unit number computed 
from CUU. 



More operands are not required. If 
present, they are saved at the following 
locations: 

LOGUNT - bit 3 on if ALT. 

COMTP7 - DEVOPT code for PUB set from 

X'SS' specification. 
JBCSWO - operator command bit off if 
TEMP. 



Check Device Type - Chart EE 



If the assignment is not UA or IGN, the PUB 
pointer for the LUB is computed from the 
PUB address (STRPUB) and saved in STPPTR. 
Device type is saved in CFIELD. 

If the logical unit is a programmer 
unit, it is necessary to check for SYSOOO. 
If the assignment is to SYSOOO, the link 
edit bits in JBCSW1 must be reset. 

If the logical unit is a system unit, it 
is necessary to check the specified device 
against a table of possible devices that 
can be assigned. If the specified device 
is also assigned to another system unit, it 
is necessary to check the compatibility of 
the new assignment. 



Make Alternate Assignment - Chart £E 



The logical unit is checked to determine: 
® If it is a programmer logical unit. 
® If both the device assigned to it and 

the device about to be assigned as an 

alternate are tape units. 
© If its present assignment and the 

alternate assignment are both standard 

or both temporary. 

A JIB is created for the alternate 
assignment. If there is already a JIB 
pointer in the LUB, the new JIB is found by 
locating the end of the current chain, 
inserting FAVP to chain to the new JIB, and 
then calculating the address of the new 
JIB. 

If there is no JIB pointer in the LUB, 
the new JIB is found by calculating its 
address from FAVP, saving the LUB flag in 
the JIB, and inserting the JIB pointer in 
the LUB. 

In either case, FAVP is updated from the 
chain field in the new JIB. The new JIB is 
marked as the end of the chain. The ALT 
bit is turned on in the JIB flag. The 
PUB-pointer saved in STPPTR is stored in 
the first byte of the JIB. 



Control Programs - Job control 4 5 



The assignment is complete. Figure 30 
shows the new LUB and JIB entries. Return 
is to the read statement routine (STMTIN). 



Normal 

PUB 

Pointer 



JIB 
Pointer 



LUB 



JIB 



Alternate 

PUB 

Pointer 



1 



'00' 



LUB Flag 
Alternate 
JIB Flag Chain Field 



Figure 30. I/O Table Entries for an Alter- 
nate Assignment 



Make Normal Assignment - Chart EF 



To prepare for making the assignment, any 
JIB chains attached must be released. To 
release a JIB is to restore the LUB flag 
and make the JIB's in the chain available. 

• If present assignment standard and 
making standard assignment, release 
current assignment. 

• If present assignment standard and 
making temporary assignment, no need to 
release. If a JIB for an ALT is 
attached, restore LUB flag. 

• If present assignment temporary and 
making standard assignment, release 
chain on standard assignment and then 
release and eliminate temporary assign- 
ment. 

• If present assignment temporary and 
making temporary assignment, release 
temporary assignment. 

The Job Control flag in the PUB for the 
specified device is reset (bits 5 and 6) by 
scanning all LUB's except the one being 
assigned for the specified PUB pointer. 

When making a temporary assignment , a 
JIB is built unless the present assignment 
is UA or IGN. Figure 31 shows the JIB 
entry. In any case, bit 1 of the LUB flag 
is set off. 



LUB 



JIB 



PUB JIB 
Pointer* Pointer 
I 



Standard LU B 



* Not set until the final 
routine ASSGN. 



LUB Flag 

Stored Standard 

JIB Flag Chain Field 



Figure 31. I/O Table Entries for a Tem- 
porary Assignment - 



If the assignment is UA or IGN, it is 
completed by setting bit in the LUB flag 
(UA - off; IGN - on) and putting a null / 
PUB-pointer in the LUB. SYSLOG bits 6 and 
7 of JBCSWO are reset if necessary. Return 
is to the read statement routine (STMTIN). 

When making a standard assignment , bit 1 
of the LUB flag is set on. If the assign- 
ment is UA or IGN, it is completed by set- 
ting the LUB flag (UA - bits and 3 off, 
bit 2 on; IGN - bits and 3 on, bit 2 off) 
and putting a null PUB-pointer in the LUB. 
SYSLOG bits 6 and 7 of JBCSWO are reset if 
necessary. Return is to the read statement 
routine ( STMTIN) . 

If the assignment is a device, bits 0, 
2, and 3 in the LUB flag are set off. 

When completing a temporary or standard 
device assignment , bit of the LUB flag is 
set off and the PUB-pointer (in STPPTR) is 
put in the LUB. Several checks are made: 

• If assignment was made to SYSLST, the 
Job Control line count is reset to 
start a new page. 

• If a tape device was assigned, the 
DEVOPT byte in the PUB is initialized. 
If the assignment is standard, bits 0-4 
of the Job Control flag are also reset. 

• If a tape device was assigned to 
SYSRDR, SYSIPT, SYSPCH, or SYSLST, and 
if the tape is at load point, the tape 
file is opened by the Supervisor tran- 
sient $$BJCOPT. 

• Bits 5 or 6 of the Job Control flag 
byte in the PUB are set from bits 5 and 
6 of LOGUNT. 

• Bits 6 and 7 of JBCSWO (SYSLOG bits) 
are reset in case assignments have 
changed. 

Return is to the read statement routine 
(STMTIN). 



CANCEL - CHART EG 



Objective: To prepare for entry to the 
end-of-job routine before normal end-of- 
job. 

Entries: 

1. From the initialization routine 
(JOBCTL) when Job Control is entered 
with the cancel bit on in JBCSW3. 

2. From the read statement routine 

(STMTIN) when the operator issues a 
CANCEL command. 

3. From the VOL routine at LBLEXH when the 
label area has been exhausted but more 
labels are required. 

Method: If the CANCEL is an operator 
command, the cancel indicator in JBCSW3 is 
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set off and the input indicator in JBCSWO 
is set to SYSRDR. A message is written on 
SYSLOG and SYSLST. 

The LUB assignments are reset to stand- 
ard. If SYSRDR is not already at end-of- 
file (/S has been read), statements are 
read from SYSRDR until end-of-file is 
encountered. Then control goes to the 
end-of-job routine (EOJRTN). 



Method: The statement is logged if 
required. The statement must contain an 
eight-character operand. The eight charac- 
ters are stored in the communications 
region (displacement 0) . Return is to read 
another statements (STMTIN). 



CLOSE - CHART EG 



DVCDN -. CHART EH 



Objective: To close tape files on request. 

Entry: From the read statement routine 
(STMTIN) when the operator issues a CLOSE 
command. 

Method: The statement is logged if 
required. The statement must contain an 
operand specifying a logical unit SYSXXX. 
The operand is checked and the specified 
LUB is located. If SYSXXX is a system 
unit, it must be SYSLST or SYSPCH. 

The PUB pointed to by the LUB is locat- 
ed. It must be a PUB for a tape device. 
The routine writes a tape mark, an EOV 
trailer in user density and standard mode, 
and two tape marks on the device. The tape 
is rewound and unloaded. 

If SYSXXX is a system logical unit, a 
standard assignment of IGN is made to the 
logical unit. Exit is to the read state- 
ment routine (STMTIN). 



Objective: To adjust a PUB and LUB's to 
indicate a device is no longer physically 
available for system operations. 

Entry: From the read statement routine 
(STMTIN) when the operator issues a DVCDN 
command. 

Method: The statement is logged if 
required. All LUB f s are reset to their 
standard assignments. The statement must 
contain an operand specifying a device. 
The operand is checked and the PUB for the 
device is located. The job control flag in 
the PUB is set to all zeros. 

The entire LUb table is scanned for 
LUB's to which the specified device is 
assigned. If one is found, any JIB's 
chained to it are released. If the LUB is 
a system LUB, it is assigned IGN; if a 
programmer LUB it is assigned UA. 3he 
names of the modified LUB's are listed on 
SYSLOG. 



CMNTPR - CHART EB 



Bits 6 and 7 of JBCSWO (SYSLOG bits) are 
reset in case assignments have changed. 
Return is to read another statement 
(STMTIN). 



Objective: To write a comment. 



Entry: From the read statement routine 
(STMTIN) when an * statement is encoun- 
tered. 



DVCUP - CHART EH 



Method: The statement is written on SYSLST 
if the programmer LOG bit is on (JBCSW3). 
The statement is written on SYSLOG unless 
it was read from SYSLOG. Return is to read 
another statement (STMTIN). 



DATE - CHART EG 



Objective: to initialize the job date 
field in the communications region. 

Entry: From the read statement routine 
STMTIN when the programmer provides a DATE 
statement. 



Objective: To adjust a PUB to indicate a 
device is available for system operations 
after the device has been down. 

Entry: From the read statement routine 
(STMTIN) when the operator issues a DVCUP 
command. 

Method: The statement is logged if 
required. The statement must contain an 
operand specifying a device. The operand 
is checked, and the PUB for the device is 
located. The job control flag byte is 
reset to f F8* or, if the device is tape, 
from the DEVOPT byte. Return is to read 
another statement (STMTIN) . 
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ENTRY - CHART EC 



EXEC - CHART EK 



See ACTION. 



Objective: To determine the name and loca- 
tion of a phase to be fetched* 

Entry: From the read statement routine 
(STMTIN) when the programmer provides an 
EXEC statement. 



EOJRTN - CHART EJ 



Objectives: 

1. To catalog Linkage Editor output if 
required. 

2. To set end-of-job conditions. 

3. To list the TEB*s (tape error blocks). 



Entries: 

1. From the initialization routine 
(J0BCTL) when Job Control is entered 
with SYSRDR at end-of-file (/£ has been 
read) . 

2. From the read statement routine 
(STMTIN) when a /£ statement is encoun- 
tered. 

3. From CANCEL. 



Method: The job status bit in JBCSW3 is 
checked. This bit is turned on by a JOB 
statement and off by a /S statement. If it 
is not on when EOJRTN is entered, the end- 
of-file flag in the SYSRDR PUB is turned 
off and control returns to read another 
statement (STMTIN) . 



The CATAL bit in JBCSW1 is checked. 
This bit is set on after the CATAL operand 
in an OPTION statement has been recognized. 
It indicates that the Linkage Editor output 
on SYS 000 is to be cataloged. Control goes 
to the MAINT program through a fetch. 



Otherwise, the end-of-job conditions are 
set. All LUB's are reset to their 
assignments. If SYSIPT is not already at 
end- of -file, it is read until a /£ is 
encountered. An end-of-job message is 
written on SYSLST and SYSLOG. The option 
bits in JBCSW2 and 3 are reset to normal. 
The job status bit in JBCSW3 is set off. 
The job name is reset to NO NAME. 

If there are any TEB f s, each PUB entry 
is checked for a corresponding TEB. If 
there are any nonzero counts other than the 
retry count in the TEB, the TEB is listed 
on SYSLOG with the counts converted to 
decimal. 

Finally, all bits in JBCSW1 are set off 
except the Autotest indicator. Control 
goes to RSTCOM in the JOB routine. 



Method: The statement is logged if 
required. If the statement has no operand, 
the phase to be executed is Linkage Editor 
output on SYS000. The EXEC permission bit 
(bit 2 in JBCSW1) must be on. Bits and 1 
of JBCSW1 and bit of JBCSWO are set off. 
The program name is read from SYS000 and 
control goes to FETCHR. 

If the statement has an operand, it must 
be a name consisting of at least one char- 
acter and not more than eight. If the name 
is •LNKEDT 1 or * ATLEDT ' , the link-edit 
permission bit (bit 1 in JBCSW1) must be 
on. SYS00O is positioned for a read. In 
JBCSW1 bit is set on and bit 1 set off. 
Control goes to RESFCH to fetch $LNKEDT or 
ATLEDT. 

If the name is RPG, control goes to 
RESFCH to fetch RPG1. 

If the name is not LNKEDT or ATLEDT or 
RPG, it is simply moved to the necessary 
field. Control goes to RESFCH. 

At RESFCH bit of JBCSWO is set on to 
specify a fetch from SYSRES, and control 
goes to FETCHR to fetch the named phase. 



IGNORE 



CHART EJ 



Objective: 
SYSRDR. 



To allow further input from 



Entry: From the read statement routine 
(STMTIN) when the operator gives a response 
of IGNORE. 

Method: The statement is written on 
SYSLST. The job control input bit 2 of 
JBCSWO is set off to allow input from 
SYSRDR. Exit is to read another statement 
(STMTIN). 



INCLOD - CHART EC 



Objective: If no operand, to copy SYSIPT 
on SYS000? if operand, to copy statement on 
SYS000. 

Entry: From the read statement routine 

(STMTIN). 
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Method: This is one of the statements 
being processed for Linkage Editor. If the 
scan subroutine locates an operand, control 
goes directly to the ACTION routine to copy 
the statement. 



If the pause bit is on, a pause message 
is written on SYSLOG, and the job control 
input bit (bit 2 in JBCSWO) is set on. The 
pause bit is set off. Return is to read 
another statement (STMTIN). 



If no operand is found, the statement is 
logged if required. The routine tests the 
LINK bit in JBCSW1. This bit is set on 
after the LINK or CATAL operand in an 
OPTION statement has been recognized and 
SYSOOO has been opened. It must be on when 
a Linkage Editor statement is read. 

The routine reads card images from 
SYSIPT, and copies them onto SYSOOO until 
it encounters a /* card in SYSIPT. When 
this end-of-file indicator is found, con- 
trol goes to COPYRT in the ACTION routine 
to turn on the link-edit permission bit in 
JBCSWlo Return is to read another state- 
ment (STMTIN). 



LISTI0 - CHART EM 



Objective: To provide the programmer or 
operator with a list of I/O assignments. 

Entry: From the read statement routine 
(STMTIN) when the programmer on the opera- 
tor issues a LISTI0 command. 

Method: The statement is written on SYSLOG 
if LISTIO is an operator command but input 
is from SYSRDR. The statement is written 
on SYSLST if LISTIO is a programmer com- 
mand - 



JOB - CHART EL 



Objective: 
job. 



To prepare for starting a new 



Entry: From the read statement routine 
(STMTIN) when the programmer provides a JOB 
statement. 

Method: JBCSW1 is reset to zeros. The job 
status bit in JBCSW3 is checked. This bit 
is set on by a JOB statement and off by a 
/& statement. If the bit is on when the 
JOB statement is read* the routine simu- 
lates end-of-job. SYSRDR is set at end-of- 
file, and control goes to the end-of-job 
routine (E0JRTN). 

All the LUB°s are reset to the standard 
assignments. A job message is written on 
SYSLST and SYSLOG. The job name is put in 
the communications region (displacement 
24). JBCSW2 and JBCSW3 are reset to the 
standard options. 

The rest of the routine is common to JOB 
and EOJRTN. In the communications region 
the job date (displacement 0) is set to 
standard, the label area length 
(displacement 44) and the checkpoint 
identification number (displacement 92) and 
the user area (displacement 12) are set to 
zeros a If this point has been reached by 
simulating end-of-job* control returns to 
SIMEND to reset the HJB 9 s and write the job 
message. 

Otherwise the end-of-file bits (bit 2 of 
the channel scheduler flag) in all the 
PUB's are set off. If the operator- pause 
bit (bit 5 of JBCSWO) is not on, control 
returns to read another statement (STMTIN). 



The statement must contain an operand 
that specifies the assignments to be list- 
ed. Output is on SYSLST if LISTIO is given 
by the programmer, on SYSLOG if LISTIO is 
given by the operator. 

The operand must be one of five forms: 

* SYSXXX (a specific logical unit ) . 
Under the header "CH. UNIT W , the 
assignment of the single unit is list- 
ed. 

© SYS . Under the header "SYSTEM I/O 
UNITS CH. UNIT", the assignments of 
the eight named system logical units 
are listed. The sixth and tenth system 
logical units are reserved and do not 
appear in the listing. The names of 
the units are picked up from a table 
located at TBRDR. 

* PROG. Under the header "PROGRAM I/O 
UNITS CH. UNIT" , the assignments of 
all the programmer logical units are 
listed. The number of programmer LUB 8 s 
and the location of the first one 
(SYSOOO) is picked up from PGNICL and 
PGFICL. 

o DOWN . Under the header "DOWN CH. 

UNIT" , the channel and unit of each PUB 
with device-down indicated (job control 
flag all zeros) is listed. 

o UA. Under the header "UNASSIGNED CH. 
UNIT", the channel and unit of each PUB 
with the assignment bits off is listed. 
The assignment bits are bits 5, 6, and 
7 in the job control flag. 

Only one operand is expected in the 
statement. When the list is complete, 
return is to read another statement 
(STMTIN). 
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LOG - CHART EN 



Objective: To indicate that statements and 
messages are to foe logged on SYSLST or 
SYSLOG. 

Entry: From the read statement routine 
(STMTIN) when the programmer or the opera- 
tor issues a LOG command. 

Method: If the statement is given by the 
programmer, it is logged if required. The 
log bit in JBCSW3 (bit 3) is set on to 
indicate logging is required on SYSLST. If 
the bit was off, the statement is logged on 
SYSLST. Return is to read another state- 
ment (STMTIN). 

If the statement is given by the opera- 
tor, it is logged unconditionally on SYSLOG 
and, if required, on SYSLST. The log bit 
in JBCSWO (bit 3) is set on to indicate 
logging is required on SYSLOG. Return is 
to read another statement (STMTIN) . 



MTC - CHART EN 



Objective: To execute a tape I/O control 
command on request. 

Entry: From the read statement routine 
(STMTIN) when the programmer or the opera- 
tor issues an MTC command. 



Method: The statement is logged if 
required. The statement must contain an 
operand specifying the number of VOL/TPLAB 
pairs for which space is to be reserved. 
This operand must be from 1 to 3 decimal 
characters. It is converted to binary and 
multiplied by 80 to get the number of bytes 
that must be reserved. If this amount 
exceeds the space available, the job is 
canceled. Otherwise, return is to read 
another statement (STMTIN). 



NOLOG - CHART EN 



Objective: To indicate that statements and 
messages are not to be logged on SYSLST or 
SYSLOG. 

Entry: From the read statement routine 
(STMTIN) when the programmer or the opera- 
tor issues a NOLOG command. 

Method: The statement is logged if 
required. If the statement is given by the 
programmer, the log bit in JBCSW3 (bit 3) 
is set off to indicate logging is not 
required on SYSLST. If the statement is 
given by the operator, the log bit in 
JBCSWO (bit 3) is set off to indicate log- 
ging is not required on SYSLOG. Return is 
to read another statement. 



OPTION - CHART EP 



Method: The statement is logged if 
required. The statement must contain oper- 
ands specifying an I/O command and a logi- 
cal unit (or device if operator command) . 
The command is located in a table used to 
initialize the CCW for the channel program. 

If SYSXXX is specified, the device 
assigned to it is found. If the operator 
specifies CUU, it is assigned to SYSUSE. 
In either case the device must be a tape. 

If the statement also contains a dupli- 
cation factor, the factor is converted to 
binary. The command is then executed the 
specified number of times. Exit is to the 
read statement routine (STMTIN). 



NMTLB 



CHART EN 



Objective: To direct Linkage Editor to 
reserve a portion of the label area. 

Entry: From the read statement routine 
(STMTIN) when the programmer provides an 
NMTLB statement. 



Objective: To record Job Control options 
requested by the programmer. 

Entry: From the read statement routine 
(STMTIN) when the programmer provides an 
OPTION statement. 

Method: The statement is logged if 
required. An operand is located in the 
statement and compared against a table to 
find a routine address. The routine is 
executed. Return is to locate another 
operand. When the routine for the last 
operand has been executed, return is to 
read another statement (STMTIN). 

Each routine sets a bit on or off in one 
of the job control flags. Figure 32 shows 
the bit set by each option. The following 
requests provide further services: 

© LOG logs the OPTION statement on SYSLST 
if, on entry to the routine, the pro- 
grammer log bit was off. 
• CATAL opens SYS 000 through the tran- 
sient $$BJCOPT, and sets bit on and 
bits 1 and 2 off in JBCSWl. If the GO 
option is given before the CATAL 
option, these services are omitted. 
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o LINK opens SYS 000 through the transient 
$$BJCOPT, and sets bit on and bits 1 
and 2 off in JBCSW1. 

o GO sets bits and 1 off and bit 2 on 
in JBCSW1. 



RESET - CHART EQ 



Objective: To reset all logical unit 
assignments to standard. 



| LINK/NOLINK |bit in JBCSW1 on/ off 



1 



|CATAL 



MINSYS 



jbit 3 in JBCSW1 on 
H ^ 

jbit 6 in JBCSW1 on 



j. 

| GO 
h 



|bit 7 in JBCSW1 on 



j DECK/NOD ECK |bit in JBCSW2 on/ off 

|LIST/NOLIST |bit 1 in JBCSW2 on/ off 

|LISTX/NOLISTX|bit 2 in JBCSW2 on/off 

|SYM/NOSYM |bit 3 in JBCSW2 on/off 



1 

i 

H 

\ 



JXREF/NOXREF jbit 4 in JBCSW2 on/ off 



(ERRS/NOERRS | bit 5 in JBCSW2 on/ off 
|C48/C60 |bit 6 in JBCSW2 on/off 



h 



■+- 



— * 

J 



(DUMP/NODUMP | bit 1 in JBCSW3 on/ off 
| LOG/NOLOG |bit 3 in JBCSW3 on/ off 

Figure 32. Job Control Options 



PAUSE - CHART BQ 



Objective: To cause a request for operator 
input immediately (if issued by the 
programmer) , or before the next job or job 
step (if issued by the operator). 

Entry: From the read statement routine 
(STMTIN) when the programmer or the opera- 
tor issues a PAUSE command. 



Entry: From the read statement routine 
(STMTIN) when the programmer or operator 
issues a RESET command. 

Method: The statement is logged if 
required. The LUB assignments are reset. 
Return is to read another statement 
(STMTIN). 



RSTRT - CHART EQ 



Objective: To give control to the Supervi- 
sor transient $$BRSTRT in order to restart 
execution of a checkpoint ed program. 

Entry: From the read statement routine 
(STMTIN) when the programmer provides a 
RSTRT statement. 

Method: The statement is logged if 
required. The statement must contain two 
operands. The first must be the name of 
the logical unit on which the checkpoint 
was written. The second must be a 
4-character serial number used to identify 
the checkpoint. 

Information is passed to the transient 
routine in registers 2 and 3. 

* Register 2 contains the address of the 
PUB for the device assigned to the 
logical unit specified in the first 
operand. 

° Register 3 contains the address of 
UNCLOR. The subroutine CKCVLU (which 
checked and located the LUB for the 
specified logical unit) set UNCLOR at 
•00* for a system LUB or •Ol' for a 
programmer LUB. The subroutine set 
UNCLOR+1 to the logical unit number. 
RSTRT puts the checkpoint 
identification number in UNCLOR+2. 



Method: The statement is logged on SYSLOG 
and, if required, on SYSLST. If the com- 
mand was from the operator, the operator 
pause bit in JBCSW0 (bit 5) is set on. If 
the command was from the programmer, the 
job control input bit in JBCSW0 (bit 2) is 
set on. Return is to read another state- 
ment (STMTIN). 



Control is given to the transient rou- 
tine $$BRSTRT through a supervisor call of 
2. 



SET - CHART ER 



PHASE - CHART EC 



See ACTION. 



Objective: To insert values in specified 
fields of the communications region and 
system timer. 

Entry: From the read statement routine 
(STMTIN) when the operator issues a SET 
command. 
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Method: The statement is logged if 
required. An operand is located in the 
statement and control is given to the rou- 
tine associated with one of the four valid 
operands. After the routine is executed, 
control returns to locate another operand. 
If there are no more operands, control 
returns to read another statement. 



• CLOCK. Following the operand CLOCK 
must be a field of the form HH/MM/SS 
giving the actual time-of-day in hours, 
seconds, and minutes. These values are 
converted to binary and added together 
in units of 1/300 of a second. 

The timer is a negative value in 
units of 1/(300*256) of a second. The 
time- of -day and the timer divided by 
256 are added to get the time- of- day. 
The result is stored in the time-of-day 
field of the system timer (Figure 33). 
The actual time-of-day can be calculat- 
ed from the time-of-day minus the timer 
converted to hours, minutes, and sec- 
onds. 



System Timer 



Time-of-Day 



80 84 

Time-of-Day 
-Timer/256 

Actual Time-of-Day 



Figure 33. Calculation of Actual Time of 
Day 



TPLAB 



CHART ES 



Objective: To build a tape label in the 
label area. 

Entry: From the read statement routine 
(STMTIN) when the programmer provides a 
TPLAB statement. 



LINECT. The two-character integer 
field following LINECT is converted to 
binary and stored in the line count 
field of the communications region 
(displacement 78). The Job Control 
field containing the remaining number 
of lines on the page must be adjusted 
for the new total number of lines on 
the page. 



© DATE. Following the operand DATE must 
be a field of the form MM/DD/YY or 
DD/MM/YY giving the date in month, day, 
and year. These values are stored in 
the system date field of the communi- 
cations region (displacement 79-84). 
The day of the year is computed in 
binary, then converted to decimal and 
stored in displacement 85-87. 



Method: The VOL and TPLAB statements must 
come in ordered pairs • The byte PRVLBL is 
set at '01* after each VOL statement. If 
PRVLBL is not •01", the TPLAB statement is 
out of sequence. 

The statement is logged if required. If 
the statement is on one card, it contains a 
4 9- character label. If it is on two cards, 
20 more characters must be read and added 
to the first 49. The new label information 
is moved to locations 10-78 in the label 
already initialized by the VOL routine. 

The label area pointer and byte count 
are increased by 80. The byte PRVLBL is 
set *02 a . If there is not space enough for 
another label, PRVLBL is set to '08 f . 
Return is to read another statement 
(STMTIN). 



UPSI. The indicators following the 
operands UPSI (there must be from 1-8 
indicators) are used to modify the bits 
of the UPSI byte in the communications 
region (displacement 23) . The first 
indicator modifies bit of the UPSI 
byte: 

indicator is 1 - bit is set on. 

indicator is - bit is set off. 

indicator is X - bit is ignored. 

If there are fewer than 8 indica- 
tors, the corresponding bits in the 
UPSI byte are ignored. For example, an 
operand XX110 will modify an UPSI byte 
of 00001111 to 00110111. 



UPSI 



CHART ER 



Objective: To initialize the UPSI byte in 
the communications region- 
Entry: From the read statement routine 
(STMTIN) when the programmer provides an 
UPSI statement. 

Method: The statement is logged if 
required. The statement must contain an 
operand specifying from 1-8 indicators. 
The routine uses the UPSI section of the 
SET routine to modify the UPSI byte with 
the indicators. Return is to read another 
statement (STMTIN). 
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VOL - CHART ES 



JOB CONTROL SUBROUTINES - CHARTS FA-FG 



Objective: To build the name of a tape 
file in the label area- 

Entry: From the read statement routine 
(STMTIN) when the programmer provides a VOL 
statement. 

Methods The VOL and TPLAB statements must 
come in ordered pairs. The byte PRVLBL is 
set at °02 9 initially and after each TPLAB 
statement (unless there is no space remain- 
ing in the label area) . If PRVIBL is not 
9 02", the VOL statement is out of sequence. 
If there is no space remaining in the label 
area, the job is canceled. 

The statement is logged if required. 
The VOL statement must contain two oper- 
ands. The first must be a logical unit* 
SYSXXX. The subroutine CKCVLU checks the 
operand and sets UNCLOR: 

UNCLOR - *00 9 is system logical unit. 

- 9 01° if programmer logical unit. 
UNCLOR+1 - unit number. 

The second operand must be a file name from 
1- 8 characters . 

The next available 80-character label is 
initialized in the label area: 
blank in location 1. 
file name in locations 2-9. 
UNCLOR and UNCLOR+1 in locations 79-80. 

The byte PRVLBL is given the value B 01* 
for the TPLAB routine. Return is to read 
another statement (STMTIN). 



ASGNLS - Chart FA 

Given the address of a LUB in register 
POINTl, ASGNLS lists all the assignments 
(standard, temporary, alternate) associated 
with the LUB for the LISTIO routine. 

1. At ASGNLS, NOASGN, and NANJIB the pre- 
sent assignment is listed. 

2. At STDTST and NOJIB the standard 
assignment is listed if the present 
assignment is temporary. 

3. At ALTTST any alternates to the present 
assignment are listed. 

Output is on SYSLOG if the command (LISTIO) 
is given by the operator. Output is on 
SYSLST if the command is given by the pro- 
grammer . 



BINCON - Chart FB 

Scans for an operand of the form XX/YY/ZZ 
in the input area. Checks that each 
character- pair is numeric. Converts each 
pair to a binary number, storing XX in 
WRKRG1, YY in WRKRG2, and ZZ in WRKRG3. 



BTLRTN 



Chart FB 



Compares an eight-byte argument with a 
table of eight- byte keys . When a match is 
found, the two-byte function following the 
matching key is added to the address ORIG- 
IN. Exit is to the routine addressed by 
the sum. 



JOB CONTROL FETCH (FETCHR) CHART EK 



Objective: To clear storage and issue 
fetch for a new problem program. 



On entry to the routine, register POINT1 
must contain the address of the table minus 
10. Register POINT2 must contain the 
address of the key. The argument must also 
be the last key in the table to assure a 
match. 



Entry: From EXEC. 

Method: FETCHR is part of the EXEC routine 
located at the end of Job Control in order 
to set the limits for clearing storage. 
Before the fetch of the new phase is given, 
FETCHR: 

o Moves the labels (generated by VOL and 
TPLAB statements) from the end of stor- 
age to the end of the Supervisor, 
o Calculates the clear- start-address from 
the beginning of Job Control and the 
length of the label area. 
® Calculates the clear- end-address from 
the end of storage and the length of 
the clear routine and phase name. 
© Clears storage within the clear limits. 
© Issues a fetch for the new phase. 



CHKNUM - Chart FB 

Checks for a numeric character- pair in the 
input area. Packs the pair into a work 
area WRKFLD, Advances the input area poin- 
ter by three* 



CKCVCU - Chart FB 

Checks for a device address X'CUU* in the 
input area. Places 'OCUU 9 in a four- byte 
field, CHUNT. Computes the address of the 
PUB for this device: 
1. Selects PUB pointer from the FOCL 

field. 
2» Multiplies pointer by 8 to get dis- 
placement. 
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3. Adds displacement to PUBADD to get 

address of the first PUB on the chan- 
nel. 

i*. Searches PUB's on the channel for the 
specified unit. 

The PUB address is saved in STRPUB. 



CKCVLU - Chart FB 



Checks for a logical unit address 'SYSXXX* 
in the input area. The logical unit name 
is numeric for a programmer LUB (SYS003) or 
non-numeric for a system LUB (SYSLST). 



If the LUB is a programmer LUB, the LUB 
number must be between and the limit 
specified by PGNICL. Bit 6 is set on in 
LOGUNT. The number is stored in LOGUNT+1. 
To compute the LUB address, CKCVLU: 

1. Adds the LUB number to the LUB pointer 
in PGFICL. 

2. Multiplies the result by two to get the 
displacement. 

3. Adds displacement to LUBADD. 

If the LUB is a system LUB, the name 
must occur in the table TBRDR. Bit 5 is 
set on in LOGUNT. From the table position 
a LUB number and LUB displacement are 
known. The number is stored in LOGUNT+1. 
The displacement is added to LUBADD to get 
the LUB address. 



EXCPRG - Chart FC 

Given a CCW address in register POINT! and 
a symbolic unit address in register 0, 
EXCPRG initializes the Job Control CCB and 
issues an EXCP and a WAIT (if necessary). 
If a unit exception (not EOF) occurs and 
the unit is not SYSLOG or SYSLST, a message 
with the device address is issued (on SYS- 
LOG for the operator, on SYSLST for the 
programmer). If the unit is SYSLOG, the 
I/O is reissued. If the unit is SYSLST, 
the unit exception is processed in STMFTIN 
just before the next statement is read. 



GETJIB 



Chart FC 



Given a LUB displacement (or address) in 
register POINT1, GETJIB computes a JIB 
address in register POINT2. Condition code 
3 on return indicates that there was no JIB 
pointer in the LUB. 



GETPUB - Chart FC 

Given a LUB displacement (or address) in 
register POINT1, GETPUB computes a PUB 
address in register POINT3. Condition code 
3 on return indicates there was a null 
PUB- pointer in the LUB. 



JIBDCU - Chart FD 



For either a a programmer or system LUB, 
the LUB address is saved in STRLUB. UNCLOR 
is initialized from LOGUNT and LOGUNT+1. 
Figure 34 shows LOGUNT and UNCLOR. 



'00' 



Flag 



LOGUNTL 



LUB Number 
I 



UNCLOR L 



Flag 



LUB 
Number 



Figure 34. Work Areas LOGUNT and UNCLOR 



CONCAT - Chart FC 

Reads and logs a continuation card. Places 
both parts of the statement in a single 
buffer as in Figure 35. 



First Card, Columns 1-71 Second Card, Columns 16-71 



BUFFER 



Given a LUB displacement (or address) in 
register POINT1, JIBDCU determines if there 
are any JIB # s attached to the LOB. If 
there are, it releases the JIB chain. 
Furthermore, if JIBDCU is entered because a 
standard assignment is being made, and if 
the present assignment is temporary, JIBDCU 
must be executed twice: first to release 
any JIB's from the stored standard assign- 
ment; second to release any JIB's from the 
temporary assignment. 

A JIB chain is released by: 

1. Replacing each JIB flag in the chain 
with zeros. 

2. Chaining the free list to this JIB 
chain by inserting the FAVP pointer 
into the chain field of the last JIB in 
the chain. 

3. Adding this JIB chain to the free list 
by inserting the JIB pointer from the 
LUB into FAVP. 

Finally, the standard LUB flag is restored 
to the LUB replacing the JIB pointer. 



LOGCHK - Chart FD 



Figure 35. Concatenation 



Sets bits 6 and 7 of JBCSWO depending on 
the assignments to SYSLST and SYSLOG. 
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LOGGER 



Chart FE 



Writes on SYSLOG and, if programmer LOG 
option is present, writes on SYSLST. 



MOVERT - Chart FD 



If the standard assignment is a device, 
the PUB pointer is restored to the LUB, and 
the ASSGN routine is entered at RSTNTR 
(Chart EE). On return, the LUB flag (or 
JIB pointer) is restored to the LUB to 
complete the reassignment. 



Given a f rom-address in register POINT1, a 
to-address in P0INT2 , and a field length in 
WRKRG1, MOVERT moves the field. 



SCAN - Chart FF 



MSGOUT - Chart FD 

Allows output on SYSLOG and SYSLST. 
cutes subroutine SYSLGR, 



Exe- 



OUTPUT 



Chart FA 



Allows output on SYSLOG and SYSLST. If 
current command is from the operator, 
writes on SYSLOG. If not, writes on 
SYSLST. 



PRPSYO 



Chart FE 



Prepares SYSQOO for input to Linkage Editor 
by writing an ENTRY statement and position- 
ing the tape for a read. 



1. 
2. 

3. 



SCANR1 ; Scans for a non blank charac- 
ter. If all characters are blank, 
return is to the main routine. 
SCANR2: Picks up the pointer and limit 
from the previous scan. Scans for a 
nonblank character. If all characters 
are blank, return is to the main rou- 
tine. 

SCANR3 ; Picks up the pointer and limit 
from the previous scan. 



After entry, each scan is for a stop- 
character: a comma, a blank, or an equal 
sign. When one is found (or at the end of 
the field if none are found) , the condition 
code is set by comparing to a comma. The 
length of the parameter less one is saved 
in PARLGT. 



SIZCHK - Chart FF 



QLOGER - Chart FE 

If the operator LOG option is present* 
writes on SYSLOG. If the programmer LOG 
option is present, writes on SYSLST. 



Assures the parameter length is between one 
and eight (0 < PARLGT < 7). 



SYSLGR - Chart FG 



RDST&3T - Chart FE 

Sets switches in SYSLGR and SYSPTR to allow 
output on SYSLOG and SYSLST. Reads from 
SYSRDR if job control input bit 2 if off. 
Reads from SYSLOG if bit is on. 



RSTASG 



Chart FF 



If output on SYSLOG is suppressed, an 
immediate return is taken to the main rou- 
tine. If output is allowed, further 
requests for output are suppressed. If 
SYSLOG and SYSLST are the same, output is 
on SYSLST (see subroutine SYSPTR). 

Before writing on SYSLOG, the output 
length is reduced by trailing blanks. 
SYSLGR writes on SYSLOG. 



Uses the RSTRTN to reset each of the LUB°s 
to its standard assignment. 



RSTRTN - Chart FF 

Given a LUB address in register POINT1, 
RSTRTN determines if the present assignment 
is standard. If so, the routine is com- 
plete. If not, any JIB's are released from 
the present assignment. 

If the standard assignment is IGN or UA, 
LOGUNT is initialized and the ASSGN routine 
is entered at MASGN (Chart EE) to complete 
the reassignment. 



SYSPTR - Chart FG 

If output on SYSLST is suppressed, an 
immediate return is taken to the main rou- 
tine. If output is allowed, further 
requests for output areas are suppressed. 
SYSPTR writes on SYSLST, adjusting the line 
count as necessary. 



TIMLOG - Chart FG 

If the timer feature is present, the output 
buffer is cleared of everything but the 
time field. Output is allowed on SYSLOG. 
TIMLOG executes the subroutine SYSLGR. 



Control Programs - Job Control 55 



TIMSTP - Chart FG 

Computes the actual time- of- day by sub- 
tracting the timer (location 80) divided by 
256 from the time-of-day (location 84). 
The result is placed in the time field of 
the output area in the form HH. MM. SS. 



For each of these errors, the statement 
in error is logged on SYSLST and SYSLOG if 
required. Then the error message is writ- 
ten on SYSLST and SYSLOG. The job control 
input bit 2 in JBCSWO is set on to allow 
input from SYSLOG. Return is to read 
another statement (STMTIN). 



JOB CONTROL ERROR ROUTINES 



IPTUNA - PLEASE ASSIGN SYSIPT 
RDRUNA - PLEASE ASSIGN SYSRDR 



CNIOAG - CONFLICTING I/O ASSIGNMENT 

INDVTP - INVALID DEVICE TYPE 

INIOAG - INVALID I/O ASSIGNMENT 

NOMRJB - NO FREE JIBS 

NVSTMT - INVALID STATEMENT FORMAT 

OUTSQN - STATEMENT OUT OF SEQUENCE 



For these errors in assignment, the 
message is written on SYSLOG. The job 
control input bit 2 in JBCSWO is set on to 
allow input from SYSLOG. Return is to read 
another statement (STMTIN). 
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INITIAL PROGRAM LOAD 



IPL is a three-phase program. Figure 36 
shows the relationship of the phases. 
$$A$IPL1 is a 24-byte phase consisting of 1 
PSW and 2 CCW's. It is the bootstrap rou- 
tine that is used to load $$A$IPL2. 

$$A$IPL2 clears main storage beyond 
IPL2, notes the size of main storage, reads 
the Supervisor into main storage, and moves 
the SYSGEN I/O tables (the tables on 
SYSRES) to high main storage. It builds an 
I/O table consisting of two devices, the 
SYSRES tape and a communications device, to 
be used in the operation of $IPLRT2. It 
issues a supervisor call to bring in 
$IPLRT2 from the core image library. 

$IPLRT2 calculates the size of main 
storage and the number of PUB's and TEB" s 
in use by the present system. Then it 
executes the read subroutine. The read 
subroutine (Chart GD) reads three types of 
control statements that the operator may 
put in the communications device. After a 
statement is read it is identified by the 
scan subroutine (Chart GE) . 

The ADD cards are processed by the ADD 
statement subroutine (Chart GF) . After a 
PUB has been added, the program branches 
back to read another card. The DELETE 
cards are processed by the DELETE statement 



subroutine (Chart GG) . After a PUB has 
been deleted, the program branches back to 
read another card. The SET card is proc- 
essed by the SET statement subroutine 
(Chart GH) , which sets the date and time of 
day in the Supervisor. The program branch- 
es back to restore the I/O tables to the 
Supervisor, load Job Control, and make 
final exit. 



$ $ A$ IP LI ( BOOTSTRAP ) 



Objective: To load $$A$IPL2 

Entry: By operator action 

Method: To initiate system operation, the 
operator sets the device address of SYSRES 
on the console and presses the load key. 
Hardware reads the first record from SYSRES 
into location and transfers control to 
the CCW at location 8 (Figure 37). 

In the 16K tape system, this CCW reads 
the next record on SYSRES, $$A$IPL2, into 
an area of storage that is higher than the 
end of the largest possible Supervisor. 
When the I/O is complete, hardware uses the 
PSW at location as the new PSW. In this 
system the PSW transfers control to the 
beginning of $$A$IPL2 (Figure 38). 
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Control Programs - Initial Program Load 59 



SYSRES 



$$A$IPL1 



$$A$IPL2 



$$A$SUP 



Core 

Image <^ 
Library 



Reads Second 
" Record on SYSRES 



$IPLRT2 



PSW 


CCW 


00... . 00 


Transfers 


/■ 


Reserved for I 


Control to 


X 


Supervisor J 


Beginning 






of Program 








Figure 38. $$A$IPL1 



$$A$IPL2 (LOAD) CHARTS GA AND GB 



Objective: To load Supervisor and to pre- 
pare tables for SYSRES and a communication 
device . 



Method: This routine clears storage from 
the end of this routine to the end of stor- 
age. It reads the next record (or records) 
into the Supervisor area from SYSRES. The 
address of SYSRES is still available from 
$$A$IPL1. The number of records in the 
Supervisor is specified in the Supervisor 
header. 



If there are any read errors during the 
reading of the Supervisor, error codes are 
put in locations 0-3. The tape is rewound 
and the program enters a wait. The job 
must be restarted. 

At ENDRD control is given to LUBRTN 
(Chart GB) to build a PUB for SYSRES in low 
storage. The first time through LUBRTN, 
the PUB, TEB, and LUB tables generated with 
the system are saved in high storage. 

LUBRTN then builds the PUB, zeros the 
TEB if present, updates the FOCL and the 
PUB pointers in the LUB's, and assigns the 
PUB to the LUB for SYSRES. 



On return from LUBRTN the program enters 
the wait state awaiting operator action. 
The operator takes one of the following 
actions to determine the IPL communications 
device: 

• Presses the external interrupt key 
causing an external interrupt. SYSRDR 
is to be the communications unit and it 
is already assigned a device. The 
device address is located in the PUB 
table and placed in the I/O old PSW. 

• Presses ready on a disabled reader 
causing an I/O device end interrupt. 
SYSRDR is to be the communications 
unit. 

» Presses the 1052 request key causing an 
I/O attention interrupt. SYSLOG is to 
be the communications unit. 



Again control goes to LUBRTN to build a 
PUB in low storage. The device address is 
taken from the I/O old PSW. The PUB is 
assigned to the LUB for SYSRDR or SYSLOG, 
depending on the type of interrupt. 



The two-device I/O table is sufficient 
to complete the IPL process. If the stor- 
age protection feature is specified in the 
configuration byte (displacement 52) of the 
communications region, a key of is given 
to the Supervisor area. The rest of stor- 
age is given a key of 1. 
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Figure 39. $$A$IPL2 



Finally, $IPLRT2 is loaded by an SVC of 
4. Figure 39 shows the layout of main 
storage at the end of $$A$IPL2. Control is 
given to $IPLRT2* 



The routine checks whether the communi- 
cations LUB in high storage is assigned to 
some PUB. If it is, and no other LUB has 
the same PUB-pointer, the Job Control flags 
in the associated PUB are cleared. 



$IPLRT2 - CHART GC 



Objectives To generate I/O tables and to 
transfer control to Job control. 

Entry: From $$A$IPL2. 

Method: $IPLRT2 is the main routine con- 
trolling the generation of new I/O tables. 
After initializing, it calls the read and 
scan routines (Charts GD and GE) , which in 
turn call the ADD, DELETE and SET routines 
(Charts GF, GG, GH) . 

After a SET statement is processed, this 
routine expects no further input on the 
communications device. It must resolve the 
I/O assignments in high and low storage and 
restore the updated high storage I/O tables 
to low storage. 

First the communications device is 
resolved. The logical unit for the com- 
munications device is SYSRDR or SYSLOG. 



In any case, the PUB is located. There 
must be a PUB in high storage for this 
device. The device type in the PUB is 
checked to determine if it is the same as 
was used by IPL. The PUB is then perman- 
ently assigned to the LUB for SYSRDR or 
SYSLOG. 

The process is repeated for SYSRES. The 
I/O tables are then complete except for 
possible reordering of the PUB and LUB 
table necessary for operating with a multi- 
plex channel. The LUB* s for SYSRDR, 
SYSLST, SYSLOG, and SYSIPT are unassigned 
if they are assigned to tapes. Job Control 
must make these tape assignments to open 
the files properly. 

Finally, the I/O tables are moved to 
their normal position in low storage. If 
the communication device is a 1052, an exit 
message is written. All registers except 1 
and 2 are set at zero. A program to load 
Job Control is moved into the transient 
area and given control. 
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READ SUBROUTINE (READRT) CHART GD 



Objective: To read a statement from the 
communication device. 

Entry: From $IPLRT2 when a control state- 
ment is required. 

Method: A check is made to see if the 
communication device is a 1052 or a card 
reader. If it is a 10 52, a test is made at 
LOGSTR to see if it is the first statement. 
If so, a message is written by MSGRTN: GIVE 
IPL CONTROL STATEMENTS . The CCW is then 
set to read, and the program branches to 
IOHLD. 

If it was not the first statement, the 
buffer is blanked at LOGRED and the program 
branches to IOHLD. 

At IOHLD the CCB address is saved in 
case a read error occurs. A supervisor 
call is issued to read a card from the 
communication device. The device can be 
assigned to SYSRDR or SYSLOG. After read- 
ing, a test is made for any I/O errors. If 
there was an error, SYSRES is rewound, if 
possible, and a wait is entered with the 
error code in storage location 0-3. The 
job roust be restarted. 

If there were no errors, the program 
returns to $IPLRT2 at REDRET, and the 
statement is ready to be evaluated. 



SCAN SUBROUTINE (OPRTN) CHART GE 



Objective: To scan the statement and 
determine if it is an ADD, DELETE, or SET 
statement. 

Entry: From $IPLRT2 after a statement has 
been read. 

Method: The statement is translated into 
internal machine codes for evaluation. A 
search is made for the first position of 
the op- code. At TRTBRC the op- code is 
tested to determine if the first character 
is a legal character. The function code of 
this translate-and-test instruction plus 
the location counter is used to control the 
next instruction. If the function code is 
1, an error branch is performed. If the 
code is 8, the character is legal and a 
branch to TABRET is performed. 

The beginning address of the op-code is 
stored, and a translate-and-test for the 
end of the op- code is done. At TRTBRC the 
delimiter character is tested for a blank. 
If it is not blank, an error branch occurs. 
If the delimiter character is a blank, the 



length of the op-code is calculated. The 
operation table field is initialized by 
MVCOP, and the op-code is moved into the 
end of the operation table. 

After the length of the card is found, 
TRTFFD gets the first operand. It is test- 
ed for legality. After the address of the 
first operand is stored in FLDST, the reg- 
isters are initialized to set up to search 
for the type of card being processed. 

A search increment factor is set in 
register 4 at CDSCH to step through the 
table looking for the operation (op-code). 
A compare is made after each increment to 
see if the type of statement equals the 
factor in the table. When it does, the 
branch address is picked up from the factor 
table and a branch is made to the subrou- 
tine that will handle the statement. This 
subroutine will be the one specified in the 
card: ADD, DELETE, or SET* 



ADD STATEMENT SUBROUTINE (ADDRTN) CHART GF 



Objective: To add a device to the PUB 
table in high storage. 

Entry: From the scan routine when an ADD 
statement is identified. 

Method: A check is made at the start of 
the ADD routine to determine if there is 
space in the PUB table for one more device. 
If not, a message, CANNOT ADD PUB- 
INSUFFICIENT TABLE SPACE , is written. If 
there is space, FDSRTN gets the first 
operand . 

If the device address operand includes a 
key, the operand registers are stored for 
later evaluation. The channel and unit 
numbers are checked and converted to hexa- 
decimal by HEXRTN. 

The PUB table is scanned to see if the 
PUB to be added already exists. If it is 
in the table, a message prints out PUB 
ALREADY EXISTS . If not, FDSRTN brings in 
the second operand, the device type speci- 
fication. FNDTYP scans for the correspond- 
ing device type byte and stores it in the 
temporary PUB. It also initializes the TEB 
area if there is a TEB associated with this 
device. 

The statement is tested to determine if 
there is another operand specifying device 
options. If so, it is brought in by 
FDSRTN. The options are converted to hexa- 
decimal by HEXRTN, and stored in the PUB. 

The key registers are picked up at 
KEYCHK and tested to see if there is a key 
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field to establish. If there is not a key 
to establish, control goes to PUBMKE. This 
key is either a switchable device indicator 
or a priori ty-on- channel indicator. 

If the key indicates a switchable 
device, the following values are set: 

• Switchable device bit in the PUB chan- 
nel scheduler flag 
« Minimum priority key for the low- order 

channel 
o Branch address for the build PUB rou- 
tine. 
If it is not a switchable device, the 
priority key is converted to decimal and, 
at PUBMKE, the branch address for the build 
PUB routine is set. 



After the PUB is deleted, the FOCL bytes 
and the PUB-pointers in the LUB table must 
be updated. 

On completion, control returns to 
$IPLRT2 at OPRET to read another card. 



SET STATEMENT SUBROUTINE (SETRTN) CHART GH 



Objective: To set the system date and time 
of day. 

Entry: From the scan routine when a set 
statement is identified. 



PUBMK1 sets the PUB table address for 
the build PUB routine. 

BID PUB builds the PUB for the device the 
operator has specified on the ADD card. 
After the PUB is built, CHURTN is used to 
update the FOCL. LUURTN updates the LUB 
table. This completes all the necessary 
updating of the I/O tables for the device 
that was added. The program returns to the 
main line at OPRET. 



DELETE STATEMENT SUBROUTINE (DELRTN) 
CHART GG 



Objective: To delete a device from the PUB 
table in high storage. 

Entry: From the scan routine when a delete 
statement is identified. 

Method: FSDRTN gets the first operand of 
the statement to be evaluated. It is 
checked for correct length and legal chan- 
nel address. After the channel number and 
the corresponding FOCL entry are deter- 
mined, the channel is tested to assure 
there is information on it. 

The PUB*s for the specified channel are 
searched for the specified device. When 
the device to be deleted is found, its 
address is saved. 

When the PUB*s have teen searched, the 
program goes to SCNEND. There a check is 
made to make certain that the device to be 
deleted was found. If there is a TEB asso- 
ciated with the PUB, it is deleted by 
DEBLOP and the program goes to PUBDEQ. If 
there is no TEB for the PUB, control goes 
directly to PUBDEQ. 

At PUBDEQ the address and the length of 
the portion of the PUB table following the 
PUB to be deleted are set up. Then SYSMVC 
deletes the PUB by moving that portion of 
the table down 8 bytes. 



Method: After all the ADD and DELETE 
statements have been read, a SET statement 
must be read to set the time of day and the 
date. 

There are two formats for the date. The 
American format is month followed by day. 
The European format is day followed by 
month. The date configuration byte, dis- 
placement 53 in the communications region, 
specifies the form used by the system. 

The first operand of the card is brought 
in by FDSRTN and tested to see if it is the 
date field. If it is the date field, the 
system date is set in the Supervisor by 
DATERT. 

A test is made to see if a timer is 
present. If not present, return is to 
$IPLRT2. If a timer is present, the next 
operand is brought in by FDSRTN and tested 
to see if it is the clock field. If it is 
not the clock field, it is in error. If it 
is the clock field, the hour, minute, and 
second of the day are set in time-of-day 
(location 84) by TIMERT. The program 
returns to $IPLRT2. 

If the first operand is not the date 
field, it is tested to see if it is the 
time field* If it is not the time field, 
it is in error. If it is the time field, 
the hour, minute, and second of the day are 
set in time-of-day (location 84) by TIMERT. 
The next operand is brought in by FDSRTN 
and tested to see if it is the date field. 
If it is not, it is in error. if it is the 
date field, the system date is set in the 
Supervisor by DATERT and the program 
returns to $IPLRT2. 



SUBROUTINES FOR $$A$IPL2 AND $IPLRT2 



BLDPUB : Given the channel and desired 
position, inserts a PUB entry in the 
PUB table. 
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LUURTN: Given the PUB number of an insert- 
ed or deleted PUB entry, modifies PUB 
pointers in the LUB table as required. 



CHURTN: 



Given the channel for which a PUB 



entry has been inserted or deleted, 
updates the FOCL. 

SYSMVCs Given the length of a field, its 
location, and where it is to be moved, 
moves the field. 



ASNRTN: Assures that the PUB job control 
flag is correct for each assignment 
made at system generation time. 

FDSRTN ; Locates the next operand in the 
input area. 

FNPTYP : Analyzes device type specified in 
an ADD statement to pick up tabled 
information. 

DECRTN: Converts a field from decimal to 
binary . 



SUBROUTINES FOR $IPLRT2 



HEXRTNs Converts a field from hexadecimal 
to binary. 



COMCHK: Checks a device against a list of 
allowable devices. Error return if no 
entry found. 



DATERT and TIMERT : Update communications 
region date field and time. 



PBFRTN : Given a low-storage PUB entry, 

locates the high-storage PUB entry for 
the device. Error return if no entry 
found. 

DBLRTN ; Compares LUB's to determine if 

more than one LUB points to a particu- 
lar PUB. 



MPXRTN: 



Assures that the PUB table is 



correctly ordered and the LUB table 
modified for bursting on a multiplex 
channel . 

OPNRTN ; Unassigns any system I/O units 

(SYSRDR, SYSIPT, SYSPCH, SYSLST) that 
have a. SYSGEN assignment to a tape 
unit. 



ERROR HALTS FOR $IPLRT2 



ILLCD, COMNFD, RESNFD, TEBEXD, PUBKXD, 
DBLADD, DELEXT, RESERR : Issues message. 
If communications device is SYSLOG, 
attempts to read another statement. Other- 
wise rewinds SYSRES and generates a wait, 
with error code in low storage. 

PRCERR: If communications device is 
SYSLOG, issues message. If communications 
device is SYSRDR, rewinds, generates a 
wait, and puts error code in low storage. 

IOHALT : Rewinds unless error is on 
SYSRES. Generates a wait. 
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SERVICE PROGRAMS 



LINKAGE EDITOR 



The Linkage Editor prepares programs for 
execution on 16K Tape BOS* The Linkage 
Editor accepts as input the relocatable 
object modules produced by the language 
translators. It processes these modules 
into program phases <, v/hich may be immedi- 
ately executed or cataloged into the core 
image library. 

Linkage Editor control cards direct the 
program to read input module (s) and form 
phases from the control sections within the 
modules. Figure 40 shows how phases can be 
formed. Linkage Editor relocates the orig- 
in of each control section in the phase, 
assigns each phase an area of main storage 
and a transfer address 8 and modifies the 
contents of the address constants in the 
phase. 



Language Translator Output- 


Linkage Editor Output 




Module A 




Phase 1 




ESD's 




TXT - CSECTA 
TXT - CSECTB 
TXT - CSECTC 










CSECTA 
CSECTB 










RLD's 






Module B 






Phase 2 








CSECTC 
CSECTD 
CSECTE 






ESD's 




TXT - CSECTD 


TXT - CSECTE 




Phase 3 




TXT - CSECTF 




TXT - CSECTG 




CSECTG 














RLD's 

















The relocation factor for each control 
section is determined and saved by building 
a table called the control dictionary. 
This table contains the Linkage Editor 
phase definitions and the module ESD items. 
When complete,, it provides sufficient 
information for determining the location of 
each control section and for resolving any 
references between control sections. 

The module TXT items are then built into 
phase blocks. The RLD items (address 
constants) are modified and inserted into 
the text. A transfer address is determined 
for each phase. 



LANGUAGE TRANSLATOR MODULES 



The input to Linkage Editor consists of 
object modules and Linkage Editor control 
cards. Each module is the output of a 
complete language translator run. It con- 
sists of dictionaries and text for one or 
more control sections. 

The dictionaries contain the information 
necessary for the Linkage Editor to resolve 
references between different modules. The 
text consists of the actual instructions 
and data fields of the module. 

Five card types (described in Appendix 
E) are produced by the language translators 
or the programmer to form a module. They 
appear in the following order. 



r . T . . 1 

| Card Type (Definition | 

k 1 „„ ^ 

| ESD [External Symbol Dictionary | 
j. . . 1 H 

| TXT | Text | 

j RLD | Relocation List Dictionary | 
| ) „„ ^ 

| REP 

I 

H 

(END 



(Replacement to text made by 
| the programmer 

[End of module 



Figure 40. Module-Phase Relationship 



The External Symbol Dictionary contains 
control section definitions and inter- 
module references. When the Linkage Editor 
has the ESD's from all modules, it can 
relocate the sections and resolve the 
references. Five types of entries are 
defined in the control dictionary. 
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I T 

|ESD Type | Definition 
j. + - 



— H 



SD 



PC 



LD 



ER 



Section Definition; provides 
control section name, assembled 
origin, and length 
^ 

Private Code; provides assembled 
origin and length for an unnamed 
control section 

Label Definition; specifies the 
assembled address and the asso- 
ciated SD of a label which may 
be referred to by another module 



CM 



+ 

External Reference; specifies 
the location of a reference made 
to another module 

+ 1 



Common; indicates the amount of 
main storage to be reserved for 
common use by different phases 



The Relocation List Dictionary identi- 
fies portions of text that must be modified 
on relocation (address constants) . 

When Linkage Editor reads a module, it 
stores ESD's in its control dictionary, 
writes TXT and REP items on a TXT file, and 
writes RLD items on an RLD file. Each 
item, identified by the language transla- 
tors with an ESID number, is identified by 
the Linkage Editor with a control diction- 
ary number to avoid duplication of iden- 
tification between modules. 



LINKAGE EDITOR PROGRAM FLOW (FIGURE 41) 



Linkage Editor is logically divided into 
four passes. Pass 1 reads the input, 
builds the control dictionary, checks for 
errors, and writes the TXT and RLD files. 
Pass 2 reads the TXT file and builds core 
image blocks. Pass 3 reads the RLD file, 
modifies the address constants, and merges 
them into the core image blocks. Pass 4 
handles abort errors and assures that the 
Linkage Editor output is on SYS 000. 

Pass 1 actually consists of three phases: 

• Overhead Processer 

• Control Card Processor 

• 12-2-9 (Module) Card Processor. 

Job Control brings in the first phase 
when it gets Linkage Editor. The initiali- 
zation section of this phase determines the 
end of the problem program area. 
1. If 16K, the two card processors share 
the same area in storage. The Overhead 



Processor determines the input type and 
assures that the correct phase is pre- 
sent. 
2. If greater than 16K, all three phases 
can be in storage at the same time. 



The Overhead Processor reads Linkage 
Editor input and provides a logical record 
to the correct card processor. This phase 
contains the routines for the Linkage Edi- 
tor control cards ACTION and INCLUDE. 

ACTION must precede all other input 
and is grouped, therefore, with the 
initialization routines. It sets 
option bits in the Linkage Editor com- 
munications region. 

INCLUDE determines the location of 
Linkage Editor input and is grouped, 
therefore, with the input routines. 
This phase also contains subroutines common 
to the card processors. 



The 12-2-9 Processor handles the input 
module cards. 

ESP items are placed into the link- 
age table with a control dictionary 
number. Each item is entered into the 
control dictionary. For each ESD item 
of type SD or PC, a relocation factor 
is calculated. For each item of type 
ID or ER, an attempt is made to resolve 
the item into an LR. 

TXT items are assigned control dic- 
tionary numbers corresponding to their 
ESID numbers and written on the TXT 
file (SYS001). 

RLD items are assigned control dic- 
tionary numbers corresponding to their 
ESID numbers and written on the RLD 
file (SYS002). 

REP items are converted to binary 
and treated like TXT items. 

END items signal the end of a 
module. The linkage table is destroy- 
ed. The transfer address from the 
first END in a phase is saved in the 
Linkage Editor communications region. 

The Control Card Processor handles the 
PHASE and ENTRY Linkage Editor control 
cards . 

PHASE card processing constructs an 
entry in the control dictionary and 
writes a phase record on the RLD file. 
If not the first phase card, the rou- 
tine writes a transfer record on the 
TXT file for the previous phase and 
performs AUTOLlNK. 

ENTRY card processing writes a 
transfer record on the TXT file for the 
last phase and performs AUTOLlNK. It 
adjusts all the relocation factors by 
the length of common and, if a transfer 
address is given in the card, stores an 
overriding transfer address into the 
Linkage Editor communications region. 
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ESDRTN KA 



Enter ESDs 
Into Control 
Dictionary 



(Linkage Editor A 
Pass 1 J 



O- 



INTFIL JA 



GETCD JC 



Get Record 
Assure Correct 
Processor 







ACTRTN JN 



Set for 
Options 



CTLRTN JH 



Initialize for 
Control Card 
Processing 




PHSRTN | LA 



Begin New 
Phase 



V Phase 1 
f of Pass 1 



TXTRTN KJ 



Build TXT 
File 



RLDRTN KK 



Build RLD 
File 



ENDRTN KM 



Save Transfer 
Reset Linkage 
Table 



INCRTN I JK 



Determine 
Source of 
Input 



'-J® 



ENTRTN LH 



End of 
Program Phases 



Phase 3 of 
. Pass 1 
f Control Card 

Processor 



( Pass 2 J 



REPRTN KN 



Convert To 
TXT 



>- 



Phase 2 of 
Pass 1 
12-2-9 
Processor 



Figure 41. Linkage Editor Program Flow (Part 1 of 2) 
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C Pass 2 j 




CMPDCT MA 



Compress 

Control 

Dictionary 



Read TXT 
Write Core 
Image Blocks 



Determine 
Phase Transfer 
Address 



C 



C 



3 



PRTMAP ME 



Write Map 
on SYSLST 



O 



INITIAL NA 



Read RLD 
File 





ENDPH NN 



Get Phase 
2 of Pass 3 



0- 



START PA 



Initialization 



RDTXT PB 



Read TXT 
File 




C 



3 



f Cancel V 



PHRCD ND 



Build New 
Phase Header 



RLDFMT NG 



Compress 
and Modify 
RLDS 



Merge RLDS 
into TXT 



f Pass 4 J 




START QA 



Output on 
SYS000 



f Job Control J 



Figure 41. Linkage Editor Program Flow (Part 2 of 2) 
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Pass 2 is a single phase TXT processor . 
It writes a MAP on SYSLST, if requested, 
and compresses the control dictionary to 
half its Pass-1 size. It reads the TXT 
file (SYS 001) and forms core image blocks , 
phase by phase, using the control diction- 
ary to fix storage locations. The blocks 
are written on SYS002. Should a backward 
origin occur, an alternate unit (SYS000) is 
used to rewrite the blocks. At the end of 
the pass, output may be on either file. 



Pass 3 is a two- phase RLD processor . 
The first phase determines if all the RLD°s 
can be processed in storage or if they must 
be processed phase by phase. The routine 
reads the RLD file CSYS002) and modifies 
both the addresses and the text of the 
address constants from the control diction- 
ary. If processing phase by phase, the 
modified and compressed RLD°s are written 
on SYS001. 



The second phase in Pass 3 reads core 
image blocks from SYS002 or SYS 000, merges 
in the modified RLD's, and writes the com- 
pleted phase on the alternate unit, SYS0O0 
or SYS002# along with a phase header. 



Pass 4 writes any warning messages and 
cancels the job if a serious error has 
occurred , assures that the final output is 
on SYS000 and calls in Job Control. 



LINKAGE EDITOR CORE ALLOCATION (FIGURE 42) 



Initially, Job Control brings the first 
phase of Linkage Editor into main storage. 
The first phase defines the Linkage Editor 
communications region, the Overhead Pro- 
cessor, the input area, and the initializa- 
tion routines. 

The initialization routines determine, 
from the size of main storage, how to allo- 
cate space to the TXT and RLD buffers and 
tlie linkage table and control dictionary 
area. They also determine if both of the 
remaining phases of Pass 1 fit into main 
storage at the same time. If this is a 
minimum system, these two phases must share 
main storage. 

Entries to the control dictionary are 
made from high- to- low storage. Each entry 
is sixteen bytes long. 



Supervisor and 
Transient Area 


Linkage Editor Communications Region 


Pass 1 
Overhead Processor 


Pass 2 


Pass 
Core load 1 


3 

Core load 2 


Pass 4 


Input Area 


I/O Area 


Initialization 


12-2-9 I Control Card 
Processor , Processor 


* y ; ' 

Overlays only in 16K 

TXT Buffer 


RLD's 


Processed 
RLD's 

Core 

Image 

Blocks 


Input 


RLD Buffer 


t Beginning of 
Linkage Table 


Output 


t End of Control 
Dictionary after 
Pass 1 




Beginning of 
Control Dictionary? 


Compressed Control 
Dictionary 



Figure 42. Linkage Editor Core Allocation 
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PHASE entry 



ESD entry 



H- 



8: type « , 07 i 
9-11: phase origin 



13-15: phase end 
0-7: label 



0-7: phase name 



4 



12: — 









H- 



8: type = f 01 f for LD, 
•02 f for ER, f 03« for 
LR, f 04 g for PC, and 
•OS* for CM 

9-11: assembled origin 

^ 



12: phase number 

13-15: control section length 
for SD, PC, or CM; 
control dictionary 
number of section 
definition entry for 
LD or LR; blanks for 
ER. 



I 



Entries to the linkage table are made 
from low- to-high storage . The entries are 
ordered by ESD identification number by 
module. Each entry is three bytes long. 



r 



| Linkage | 
| Editor | 

I h 

i I 



0-1: control dictionary | 
number j 



2: ESD type 



Pass 2 compresses the control diction- 
ary by eliminating the first eight bytes 
of each entry (as shown in the preceding 
chart) . 



LINKAGE EDITOR I/O FLOW (FIGURE 43) 



Pass 1 reads the input (Linkage Editor 
control cards and language translator 
modules). Input is expected on SYS000, but 
a Linkage Editor INCLUDE card may direct 
the program to get a module from the relo- 
catable library on SYSRES or SYSRLB. 
Appendix E shows the format of the input 
module cards. 



Pass 1 writes text and transfer records 
on SYS001. The text records are unchanged 
from the text input except that the ESD 
identification number (ESID number) is 
converted to a control dictionary number. 
Pass 1 writes phase and RLD records on 
SYS002. The phase record is 20 bytes long: 

phase number assigned by Linkage 

Editor 

phase name 

ESD type = , 07 f 

phase origin 

Reserved to eliminate noise 

record. 



0-1: 

2-9 

10 

11-13 

14-20 






h 



PHASE entry 






ESD entry 



0: ESD type = , 07 f j 

1-3: phase transfer address j 

H 



H- 



t- 



4-5: number of blocks in 

phase | 

6-7: number of characters in j 

last block j 

^ 

0: ESD type | 

I 

-H 

I 
H 



1-3: assembled origin 



phase number 



5-7: 



relocation factor for 
SD f PC, or CM; control 
dictionary number of 
section definition 
entry for LD or LR; 
blanks for ER. 



j 
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Cop/ if 
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SYS002 




Figure 43. Linkage Editor I/O Flow 
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The RLD records are unchanged from the 
text input except that the ESID numbers are 
converted to control dictionary numbers. 
Four bytes precede the blocked RLD records , 
indicating number of records per block and 
number of bytes per record. 

Pass 2 writes a Linkage Editor MAP if 
requested. Pass 2 reads the text records 
from SYS001 and writes core image blocks on 
SYS00 2 or SYS 000. Each block is identified 
by a phase number. Pass 2 defines the 
phase transfer address. 

Pass 3 reads the RLD records from SYS002 
and compresses them. If they cannot all be 
processed in main storage at one time, the 
compressed RLD's are written on SYS001, 
phase by phase. The second part of Pass 3 
then reads RLD°s from SYS001 to merge with 
text from SYS002 or SYSOO0. 

Pass 3 vnrites the completed phase on the 
third tape (SYS000 or SYS002) as it appears 
in the core image library. A 61- byte 
header /trailer record precedes the phase: 
0: "C" 
1-30: phase header 
31-60: trailer; header of the previous 

phase; zeros for the first phase. 
The phase header contains: 



0-7 
8-11 
12-15 
16-19 
20-23 
24-25 
26-27 
28-29 



phase name 

phase origin 

phase end 

transfer address 

end of longest phase 

bytes per block 

number of blocks 

number of bytes in last block. 



The core image records are written in UK 
blocks for a 16K system or on an MINSYS 
option, 12K blocks for 32K, or 32K blocks 
for 6 UK. 



PASS 1- CORE LOAD 1 



I/O INITIALIZATION (INTFIL) CHART JA 



relocatable library (SYSRLB) is assigned. 
If it is assigned, this routine: 

1. Turns on the RLB flag. 

2. Turns on the rewind SYSRLB switch. 
3« Overlays the contents of location 

LI BLUB with SYSRLB. 
tj. Rewinds SYSRLB. 

The routine next opens tape files SYS001 
and SYS002 and performs these steps: 

1. Turns on the appropriate print control 
flag if SYSLOG equals SYSLST- 

2. Turns on the log print flag if SYSLOG 
is a printer. 

3. Branches to initialize main storage 
(Chart JB) if SYSLST is not assigned. 

t|. Sets the line count if necessary. 
5. Determines device type. 

a. Exits to initialize main storage 
(Chart JB) if the device is a tape. 

b. Turns off the ASA flag and the print 
control available flags before 
branching to initialize main stor- 
age, if the device is a printer. 

Note : If the relocatable library is not 
a private library, it is located on SYSRES 
following the core image library. 



STORAGE INITIALIZATION (INTCRE) CHART JB 



Objectives: 

1. Determine the end-of -supervisor 
address. 

2. Align addresses on appropriate boundar- 
ies. 

3. Determine the storage loads required by 
Pass 1. 

4. Establish optimum sizes for TXT and RLD 
records, RLD buffer, arid core image 
blocks. 

5. Initialize linkage editor communi- 
cations region with information about 
buffer dimensions. 

6. Clear main storage used by linkage 
table and control dictionary. 

Entry: From the I/O initialization rou- 
tine, Chart JA. 



Objectives: 

1. Determine the location of the relocat- 
able library and initialize to use it. 

2. Open tape files used by the Linkage 
Editor. 

3. Rewind work tapes. 

4. Initialize print control flags. 

Entry: From a fetch of the Linkage Editor 
program by Job Control. 

Method: This routine resets the error 
register and uses the facilities of the 
Supervisor to rewind tapes SYS001 and 
SYS0 02. It determines if a private 



Method: Using the supervisor communi- 
cations region, this routine computes the 
address of the first usable byte. This is 
either the address of the end of the prob- 
lem program label area plus one byte dou- 
bleword aligned, or the address of the 
beginning of the problem program area, 
whichever is greater. 

The routine branches to a subroutine to 
align this address on a doubleword bound- 
ary, if necessary. It saves the aligned 
address for use in the first phase origin 
of the program to be linkage-edited, or for 
use in processing common areas. 
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The routine next initializes these loca- 
tions in the linkage editor communications 
region: 

1. CTLDAD with the address of the last 
entry made in the control dictionary 
(initially CDENT1+16). 

2. CDENT1 with the address of the first 
control dictionary entry. The control 
dictionary is built from high- to low- 
storage. The first entry is located at 
the end of the problem program area. 

The routine determines if minimum main 
storage is available by comparing the 
end-of-pass-3 address with the end-of- 
problem program address. If the 
end-of-pass-3 address is higher than the 
end- of -problem program address, it 
indicates less than minimum storage is 
available. In this case, the routine 
branches to location TRYLE to set up for a 
16K configuration, and follows with a 
branch to location INIT1. If Pass 3 fits, 
the routine uses a table look-up technique 
to determine machine size, and the size of 
the tables and buffers associated with the 
machine configuration found. 

At location INIT1, the routine initiali- 
zes linkage editor communication region 
locations: 

1. CIBLOC with a value equal to half the 
size of output core image blocks. 

2. RLDSIZ with size of RLD input records 
to Pass 3. 

It next tests for 16K machine configu- 
ration, and if found, branches to location 
INIT2 to split Pass 1 into three separate 
coreloads. If this is not a 16K configu- 
ration or if Pass 1 has been split into 
three coreloads, the routine continues at 
location INIT4. 

Starting at INIT4 the routine initiali- 
zes these locations: 

1. TBFAD with the test buffer starting 
address . 

2. WRTXT (CCW). 

3. TBFEND with the text buffer ending 
address . 

4. RBFAD with the RLD buffer starting 
address . 

5. PHRLD (CCW). 

6. RBFEND with the RLD buffer ending 
address . 

It locates the starting address of the 
linkage table, determines the main storage 
available for the control dictionary, and 
executes a clear of the last 512 bytes of 
main storage. (Job Control clears remain- 
ing area prior to fetching Linkage Editor. ) 
The area between the starting address of 
the linkage table and the end of the con- 
trol dictionary is thus zeroed. 

The routine resets the first four bytes 
of both the TXT buffer and the RLD buffer 
and performs these steps: 



1. Branches to location GETCD if Pass 1 is 
more than one coreload. 

2. Moves the load routine (LODORG, Chart 
JD) into the TXT buffer for use in the 
processor fetch routines. 

3. Tests for a minimum size core image 
block request ( MINSYS option given to 
job control) . 

a. Branches to GETCD if no request has 
been made. 

b. Sets up location CIBLOC in the 
linkage editor communications 
region for minimum size output 
blocks (4K) before branching to 
GETCD, if the request has been 
made. 



GET CARD PROCESSOR (GETCD) CHART JC 



Objective: Determine and verify card oper- 
ation, and call appropriate fetch and pro- 
cessor routines. 

Entry: 

1. Initially from the initialize core 
storage routine, Chart JB. 

2. Thereafter from any of the card pro- 
cessor routines. 

Method: Because this routine has multiple 
entries, it is tailored to fit different 
situations, which are discussed separately. 



Initial Entry 



The dummy phase card generated flag has 
been turned off by the main storage ini- 
tialization routine. Input is not expected 
form SYSRES. A logical record is required 
for continued processing. 



Dummy Phase Flag On 



The first phase card is missing and a 
linkage-editor-supplied substitute phase 
card has been generated. The relocatable 
library is not a factor to be considered at 
this time. Another logical record is not 
required for continued processing. 



Operations with the Relocatable Library 



The dummy phase flag is off. The physical 

location of the relocatable library is 

determined: 

1. When the relocatable library is on 
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3. 

4. 



5. 



SYSRLB, the monitor gets the logical 
record. 
2. When the relocatable library is on 

SYSRES, the monitor branches to obtain 
the 12-2-9 processor, if necessary, 
before getting the logical record. 
Based on the high probability the 
12-2-9 processor will be used, the 
fetch minimizes tape movement. 

Starting at location GETGO ail 
situations share common processing. The 
routine continues by performing these 
steps : 

1. Branches to the action routine if 
action card images are expected. 

2. Branches to the identify control card 
routine if the first column of the card 
image is blank. 

Scans for a specific 12-2-9 card type. 
Builds a dummy phase card, sets up the 
link register address, and branches to 
the control card fetch routine if no 
phase card has been read. 
Sets up the link register address, and 
branches to the 12-2-9 card fetch if a 
match is found in the scan and a phase 
card has been read. 



FETCH SUBROUTINES (CTLFCH OR TNTFCH) 
CHART JD 



Objective: Fetch the card processor 
required by the calling routine. 

Method: Depending on the entry point, this 
routine initializes to fetch either the 
control card processor or the 12-2-9 card 
processor. After this initial step has 
been completed, the remainder of the rou- 
tine is common to both types of fetch. 

The routine determines if the processor 
is already in main storage. If it is, the 
routine branches to the address in the link 
register because no fetch is necessary. If 
it is not present, the routine tests a 
program switch to determine if Pass 1 is to 
be a single or multiple coreload. Test 
results and actions taken are: 

• All one's condition. Branch to load 
routine (L0D0RG, moved into the TXT 
buffer during core initialization) to 
fetch Pass 1 in a single coreload. 

• All zero's condition. Get the name and 
origin of the card processor to be 
fetched and issue the fetch supervisor 
call. 

• Mixed one's and zero's. Branch to the 
address in the link register, the 
desired processor is already present. 

Note : The link register is used to 
properly route the program to the next 
sequential instruction. By modifying this 



address to the starting address of the 
desired processor, this sequence is estab- 
lished: call for fetch, issue fetch, and 
execute card processor. 



INPUT SUBROUTINE (GETRCD) CHART JE 



Objectives: 

1. Branch to get a logical record. 

2. Update record counters. 

3. Test for end-of-file. 

4. Test for wrong-size records. 

Method: This routine determines if a logi- 
cal record is needed by comparing the work 
count with the record count. If necessary, 
it branches to Chart JF to get the record. 
If end-of-file or wrong-size record is 
found, the routine issues the appropriate 
error message and aborts. 

If the input is good, the routine 
updates the physical record count, and 
resets the logical record count. 

If no physical record was required or if 
counter updating and error checking are 
complete, the routine is located at SKPRD. 
There it increases the logical record count 
by one and returns to the address in the 
link register. 



GET RECORD SUBROUTINE (CHKRTN) CHART JF 



Objectives: 

1. Determine the tape movement required to 
obtain the desired physical record. 

2. Call the I/O routine necessary to posi- 
tion tape or read a physical record. 

Method: This routine restores the main 
input CCW and determines the relative loca- 
tion of the record desired on the tape. 
Based on the signed difference between the 
present position and the desired position, 
the routine performs these steps: 

1. Plus difference - backspaces tape. 

2. Minus difference - forward spaces tape. 

3. Zero difference - does not move tape. 

After orienting the tape, the routine 
initializes the CCW to read and branches to 
the I/O routine. Chart JR, to physically 
read the record. When I/O is finished, the 
routine increases the position count by 
one, indicating the record has been read, 
and returns to the address in the link 
register. 
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IDENTIFY CONTROL CARD (CTLRTN) CHART JH 



Objective: Inspect the operation field of 
control cards to determine card type and 
appropriate action to be taken. 

Entry: From the GETCD routine. 

Method: This routine branches to the posi- 
tion routine to obtain the location of the 
operation field from the card image. Based 
on conditions found, the routine performs 
in this manner: 

1. No operation field found. Branch to 
GETCD. 

2. Entry card found. Branch to CTLCHK. 

3. Program not in control mode. Print 
card in error and branch to GETCD. 

J*. Phase card found. Branch to CTLCHK. 

5. Action card found. Branch to GETCD. 

6. No control card found. Determine if a 
control card is expected. 

a. Print an error message and branch to 

GETCD if it is expected. 

b. Branch directly to GETCD if no con- 

trol card is expected. 

7. Include card found. Continue at 
CTLCHK. 

Starting at location CTLCHK the routine 
tests the submodular flag, SUBFLG, to 
determine the condition of the search for 
control card and control card found switch- 
es. 

1. Submodular flags both on. Branch to 
GETCD. 

2. Submodular flags both off. If PHASE or 
ENTRY, and AUTOLINK is to be done, 
decrement the record count and branch 
to ALNKPR. Otherwise, print the card 
and branch to the INCLUDE routine, 
Chart JK, or CTLFCH, Chart JD, to get 
the control card processor. 

3. Control card found switch off, search 
for control card switch on. Turn on 
control card found switch and branch to 
GETCD. 



If the list of field delimiters is 
exhausted and none has been found in the 
card image, the routine prints a message 
and branches to location GETCD. If the 
delimiting (stop) character is found, the 
routine: 

1. stores the field origin 

2. calculates the field length 

3. saves the delimiting character 

4. returns to the address in the link 
register. 

Note : When the position routine is 
unable to find the field, it branches to 
the address in the link register. If the 
field is found, the position routine modi- 
fies the link register address so that the 
branch is made to the instruction following 
the unconditional branch. 



INCLUDE CARD PROCESSOR (INCRTN) CHART JK 



Objectives: 

1. Check the operands of the INCLUDE card 
image to determine: 

a. INCLUDE level 

b. use of submodular structure. 

2. Find a desired module in the relocat- 
able library. 

Entry: From the identify control card 
routine, Chart JH. 

Method: This routine branches to the posi- 
tion routine to locate the operand field of 
the include card image. A totally blank 
field causes the card image to be ignored. 
Because the include card image can have 
optional operands, this routine determines 
the options used. 



Option 1 



POSITION TO OPERAND SUBROUTINE (POSRTN) 
CHART JJ 



Objective: Position a register address 
pointer to a desired field within a card 
image. 

Method: This routine searches for the 
first nonblank character. If the entire 
card is blank, the routine branches to the 
address in the link register. If a non- 
blank character is found, the routine must 
search for a field-delimiting character. 
Valid delimiters are: blank, comma, left 
parenthesis, right parenthesis, minus sign, 
or plus sign. 



, (namelist) shows the same level of include 
condition. This means the control sections 
specified in the namelist are either in the 
main input stream (SYSOOO) or are within 
the same module (specified by a previous 
include) in the relocatable library. When 
option 1 is identified, the routine: 

1. Branches to the scan routine, Chart JM, 
to validity- check the operand format 
and put the control section names, 
specified in the namelist, into a work 
area. 

2. Turns on a switch (same level), and 
sets the submodular level indicator at 
the appropriate value. 

3. Branches to ESDCHK to insure that the 
12-2-9 processor is resident in main 
storage because ESD processing can be 
expected. 
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4. Branches to GETCD for the next card 
image. 



Option 2 



Modulename, (namelist) shows this is not a 
normal include. This means the control 
sections specified in the namelist are in 
the relocatable library. Before testing 
for option 2 or option 3, the routine puts 
the module name (first operand) into a work 
area. When option 2 is identified , the 
routine: 

1. Branches to the scan routine to 
validity-check the operand format and 
put the control section names f speci- 
fied in the namelist, into a work area. 

2. Branches to the nesting routine, Chart 
JQ, to update the nest list. 

3. Sets the submodular level indicator at 
the appropriate level. 

4. Continues at location SCHDT1. 



If the module is found in the relocat- 
able library, the routine saves position 
and count information, prints an AUTOLINK 
message if required, and branches to GETCD 
for the next card image. 

Note ; Whenever a name list is speci- 
fied, submodular processing (creation of 
phases from named control sections) will 
occur. 



ACTION CARD PROCESSOR (ACTRTN) CHART JN 



Objectives: 

1. Determine the action to take place, and 
set print control flag switches accord- 
ingly. 

2. Sense the first nonaction card. 

Entry: From the Linkage Editor monitor 
routine when action cards are being col- 
lected. 



Option 3 



Module name shows a normal include. This 
means the specified module is in the 
relocatable library. When option 3 is 
identified, the routine branches to the 
nesting routine, Chart JQ, to update the 
nest list. It continues processing at 
location SCHDT1. 

Starting at SCHDT1, the routine is gen- 
eralized to process either option 2 or 
option 3 because both options use the 
relocatable library. It insures that the 
12-2-9 processor is resident in main stor- 
age because BSD processing is expected. It 
tests the library flag (I0SFLG) for one of 
three possible conditions. 

1. No library. Go to LIBERR for error 
processing. 

2. Library not open. Go to LIBRTN and 
LABCK2, respectively, to open the file. 

3. Library open. Search for the module 
name in the relocatable library. 



Method: This routine branches twice to the 
position routine. The first branch gets 
the operation field for testing. The sec- 
ond branch gets the operand field for test- 
ing. 

Operation Fields : If the current card 
is not a control card, or if it is a nonac- 
tion card, go to ACTGO to establish the 
necessary print routine for mapping. A 
blank operation field causes the routine to 
branch to GETCD. 

Operand Field : No operand, or an oper- 
and of MAP with SYSLST unassigned, or an 
undefined operand cause an error message to 
be sent and the routine to go to GETCD. An 
operand of CLEAR causes a branch to GETCD. 
(CLEAR is a valid operand for disk only.) 
An operand of NOMAP causes the routine to 
turn off the action switch in the print 
control flag before branching to GETCD. An 
operand of MAP with SYSLST assigned causes 
the routine to turn on the action switch in 
the print control flag before branching to 
GETCD. 



If the module name cannot be found in 
the relocatable library and end-of-file has 
been detected, the routine backspaces the 
file, down dates the nest list, and tests 
for AUTOLINK. If end-of-file has not been 
detected, the routine down dates the nest 
list and tests for AUTOLINK without back- 
spacing tape. 

If no AUTOLINK option is specified, the 
routine branches to send an error message 
and get another card image. If the AUTO- 
LINK option is found, the routine branches 
to the AUTOLINK routine, Chart JP. 



I/O SUBROUTINE (IORTN) CHART JR 



Objectives: 

1. Determine if a SYSRES reposition test 
is to be made. 

2. Issue the proper supervisor call 
instruction to get the necessary I/O 
operation performed. 

Entry: From any routine requiring I/O to 
be performed. 
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Method: This routine tests the flag at 
location IOSFLG to determine if a SYSRES 
reposition test is to be made. If not, it 
issues a supervisor call to execute the 
channel program, waits until I/O is fin- 
ished, and returns to the address in the 
link register. 



If a SYSRES reposition test is neces- 
sary, the routine issues a special call to 
determine if SYSRES has been moved. If it 
has not been moved, the special request 
causes the channel program to be executed. 
When I/O is complete, this routine exits to 
the address specified in the link register. 



If the special request showed that 
SYSRES had been moved, the routine exits to 
location RPSRTN within CHKRTN, Chart JF. 



CONTROL 
DICTIONARY 


ESD ITEM FOR PROCESSING 


LD 


SD 


PC 


CM 


ER 


LD 


aa 


ba 


ca 


da 


ea 


LR 


ab 


bb 


cb 


db 


eb 


SD 


ac 


be 


cc 


dc 


ec 


PC 


ad 


bd 


cd 


dd 


ed 


CM 


ae 


be 


ce 


de 


ee 


ER 


af 


bf 


cf 


df 


ef 


NO MATCH 


ag 


bg 


eg 


dg 


eg 



Starting at RPSRTN the get record sub- 
routine branches to location LABCK1, Chart 
JG, to locate the first record of the 
relocatable library (the header). It tests 
the position count to find the position of 
the desired record in relation to the 
beginning of the relocatable library. 
After positioning the tape, it reads the 
record and exits to the address specified 
in the link register. 



PASS 1-CORELOAD 2 



ESD PROCESSOR (ESDRTN) CHART KA 



Figure 44. ESD Control Dictionary Decision 
Table 



The ESD item name or label is compared 
with control dictionary name fields. Fig- 
ure 44 illustrates all possible combina- 
tions resulting from this comparison. You 
can determine the action taken by the rou- 
tine for a given condition by looking first 
at the ESD item being processed. Next, 
look at the control dictionary entry whose 
name field matches the ESD item. The two 
alphabetic characters at the junction are a 
key to the actions taken by the routine. A 
provision is also made for a search that 
resulted in the no-match condition. Again 
the junction of the ESD item and the no- 
match condition contains a key that points 
you to the action taken by the routine. 



Objective: To process ESD items into the 
linkage table and the control dictionary. 

Entry: From GOTCD, via the routine that 
fetched the card processor. 



Method: The routine tests for a submodular 
structure. If it is found*, it either 
branches to down date the nest list (Chart 
JQ a if this is primary input, the point the 
submodular structure was requested) , or it 
branches to GETCD after resetting the sub- 
modular flag. 

If the initial test determined no sub- 
modular structure, this routine calculates 
and saves number of bytes to be processed. 
It checks the validity of values in the ESD 
type field. Types 0, 1, 2, 4, and 5 are 
valid. Other values, are in error, and the 
routine branches to location ERR40 for 
error handling. 



aa : Assembled origins must agree and 
the ESD LD must be assigned. Compare the 
control dictionary number of the ESD LD 
with the control dictionary number of the 
control dictionary entry (an LD) . Equal 
control dictionary numbers indicate exact 
duplicate LD's. Therefore, ignore this ESD 
item. If the control dictionary numbers do 
not match, compare the label fields of the 
control dictionary entries pointed to by 
the ESD LD and the control dictionary LD. 
If the name fields do not match, an error 
condition exists. If a match is found, the 
routine compares the phase number of the 
matching control dictionary entry with the 
current phase number. If these numbers do 
not match, the routine branches to ELBNCD 
to put the ESD ID into the control 
dictionary, and update the linkage table. 
This condition can occur when submodular 
structure is being used. If the phase 
numbers match, set a possible (duplicate 
entry) switch and exit to ESDRET. 
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ab : Same as aa. 

ac: Assembled origins must agree. Com- 
pare the control dictionary number 
(pointer) of the ESD LD with the control 
dictionary number of the control dictionary 
item (SD). A no-match condition is an 
error. A match allows this ESD item to be 
ignored by causing the routine to branch to 
ESDRET. 



ad ; This condition is not possible 
because a private code has a blank name 
(label) field. 



to this SD). Update the linkage table, and 
exit via ESDRET. 

bd : This condition is not possible 
because the PC has a blank name (label) 
field. 



be ; This is an error condition, 
to ERR46 for error handling. 



Branch 



bf ; Branch to ELBINT to overlay 
(replace) the ER type control dictionary 
entry with the ESD-SD item. Update the 
linkage table and exit via ESDRET (Chart 
KE). 



ae ; This is an error- condition branch 
to ERR46 for error handling. 

af ; Assembled origins must agree. 
Force the ESD LD to become an LR type. 
Branch to location ELBINT to insert the ESD 
LD as an LR in the control dictionary 
(overlaying the old control dictionary 
entry) . Update the linkage table (Chart 
KE), and branch to ESDRET. 

ag : Update the control dictionary num- 
ber and control dictionary address for a 
new entry. Insert the ESD LD in the con- 
trol dictionary, update the linkage table, 
and branch to ESDRET (Chart KE) . 

ba ; If the control dictionary item has 
been resolved (assigned to a previously 
processed SD) , branch to ERR43 for error 
handling. If the ESID number of the LD/LR 
control dictionary entry matches the ESID 
number of the item being processed (ESD-SD) 
and the assembled origins also match, the 
routine branches to location ELBINT (Chart 
KE) . At that location the control dic- 
tionary item (LD/LR) is replaced (overlaid) 
with the ESD-SD item. The routine updates 
the linkage table and exits via ESDRET, 
When the ESID numbers and assembled origins 
match, this control section has been pre- 
viously defined as an entry in the assem- 
bly. Any condition other than matching 
ESID numbers and matching assembled origins 
causes a branch to ERR 43 for error han- 
dling. 



bb; 



Same as ba 



be ; Check the phase number of this SD 
item. If it has been processed in this 
phase, ignore it. If it has not been proc- 
essed, determine if it is in the root 
phase. If it is not in the root phase, 
move the ESD item (SD) into the control 
dictionary, replacing (overlaying) the 
control dictionary entry (an SD) . Update 
the linkage table and exit via ESDRET 
(Chart KE). If the ESD item is in the root 
phase, set the control dictionary number 
equal to -1 (a switch in the linkage table 
that means: bypass all future references 



bg ; Branch to ELBNCD to update the 
control dictionary number and the control 
dictionary address. Move the ESD-SD item 
into the control dictionary, update the 
linkage table, and exit via ESDRET (Chart 
KE). 

ca; Not possible because LD entry in 
the control dictionary would have a blank 
name field. 

cb : Not possible because LR entry in 
the control dictionary would have a blank 
name field. 

cc ; Not possible because SD entry in 
the control dictionary would have a blank 
name field. 

cd: Branch to ELBNCD to update the 
control dictionary address. Move the ESD- 
PC into the control dictionary, update the 
linkage table, and exit via ESDRET (Chart 
KE). 

ce ; Ignored. 

cf ; Not possible because ER entry in 
the control dictionary would have a blank 
name field. 



eg: 



Same as cd. 



da : This is an error, 
for error handling. 

db: Same as da. 



Branch to ERR46 



dc: 



Same as da. 



dd : Bypass the control dictionary entry 
(PC) and continue to scan. If the scan 
ends without another match, process as 
described in dg. 

de : Determine common with the longest 
length. Keep the longest-length value in 
the control dictionary. Update the linkage 
table and return via ESDRET (Chart KE). 

df ; Branch to ELBINT to replace 
(overlay) the ER type control dictionary 
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entry with the ESD-Common. Update the 
linkage table, and exit via ESDRET (Chart 
RE). 

dg: Branch to ELBNCD to update the 
control dictionary number and the control 
dictionary address. Move the ESD-Common 
item into the control dictionary, update 
the linkage table, and exit via ESDRET 
(Chart KE). 



address, and relocation factor. If the 
ESID has not been processed, the routine 
branches to ERR70 for error handling. If 
this ESID number is to be ignored, the 
routine branches to RDNEXT to get the next 
record. If this ESID has been processed, 
the routine tests for a zero length text 
card. A nonzero length causes the routine 
to add the assembled origin and the reloca- 
tion factor. 



ea ; Force the ID control dictionary 
entry to type LR. Branch to EUPDLT to 
update the linkage table, and return via 
ESDRET (Chart KE) . 

eb: Same as ea. 



If the text address does not fit within 
the phase boundaries, the routine branches 
to ERR50 for error handling. If the bound- 
aries are not exceeded or if a zero length 
text card was found earlier, the routine 
continues at location BLKTXT. 



ec : Branch to EUPDLT to update the 
linkage table, and return via ESDRET (Chart 
KE). 

ed: Not possible because the ER item 
cannot have a blank name field. 

ee : Branch to EUPDLT to update the 
linkage table, and return via ESDRET (Chart 
KE). 

ef ; Branch to ELBINT to replace 
(overlay) the ER type control dictionary 
entry with the ESD-ER item. Update the 
linkage table, and return via ESDRET (chart 
KE). 

eg : Branch to ELBNCD to update the 
control dictionary number and control 
dictionary address. Move ESD-ER item into 
the control dictionary, update the linkage 
table, and exit via ESDRET (Chart KE) . 

The entire control dictionary is scanned 
for unresolved LD/LR entries. If any are 
found, they are tested to determine their 
status. 

1. If the entry cannot be resolved, con- 
tinue the scan. 

2. If the entry is to be bypassed 
(negative control dictionary number) , 
store the scan. 

3. If the entry is resolved, flag it as 
assigned and continue the scan. 

The scan ends when the dictionary is 
exhausted. 



Starting at location BLKTXT, the routine 
loads the text buffer address into a reg- 
ister. It compares the length of the 
incoming text records with the length of 
the text records in the output area. If 
the length is the same, the routine branch- 
es to location MVTXT. 

If the length is not identical, the 
routine determines if the output area is 
empty. If it is not empty, it branches to 
location OPTXT to output the text in the 
buffer area, thereby emptying the buffer 
area. It restores control information and 
reenters this routine at location BLKTXT to 
repeat the processing sequence. If the 
output area is empty, the routine moves the 
length of the incoming record into the 
control information and branches to 
MVTXT+4. 

Starting at location MVTXT, the routine 
finds the address of the next available 
position in the output area. At location 
MVTXT+4, it determines if the output area 
has space available. If no space is avail- 
able, it performs the steps described pre- 
viously as starting at location OPTXT. If 
space is available, the routine moves the 
incoming text record into the output, 
updates the record number, and branches to 
read the next record. 



RLD PROCESSOR (RIDRTN) CHART KK 



TXT PROCESSOR (TXTRTN) CHART KJ 



Objective: Process a TXT card image. 

Entry: From GETCD, via the routine that 
fetched the card processor. 

Methods This routine branches to the sub- 
routine at LTESID (Chart JS) to get control 
dictionary number, control dictionary 



Objective: Process RLD cards. 

Entry: From GETCD, via the routine that 
fetched the card processor. 

Method: On entry to this routine, program 
switch RLSW1 is set to the NOP state to 
allow R and P pointer processing. Program 
switch RLWRIT is set to the branch state to 
show RLD's not wanted. When the routine 
finishes processing each RLD card, it 
branches to RLWRIT to write out RLD records 
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on SYS002. If end-of-card has not been 
reached, the routine sets up a pair of 
registers. One register points to the 
address of the item to be process ed, the 
other contains the count of bytes proc- 
essed. When the routine falls through 
switch RLSWl, it resets it to force proc- 
essing of the constant. RLSWl is set to 
branch when the R and P pointers are the 
same as those previously processed. 



P-pointer processing performs these 
steps: 

1. Branch to LTESID to get the control 
dictionary number from the linkage 
table. 

2. Branch to ERR7 for error handling 
if the ESID is not processed. 

3. Branch to RLSTP to bypass this item, if 
the ESID number is negative. 

U. Branch to ERR55 if the P-pointer does 
not point to SD/PC item. 

5. Reset program switch RLWRIT to NOP 
indicating RLD's wanted at this time. 

6. Save the control dictionary number in a 
register. 

R- pointer processing performs these 
steps: 

1. Repeat steps 1 and 2 of P-processing. 

2. Force a positive control dictionary 
number from the negative value sup- 
plied, indicating the reference is to a 
nonprocess ESD. 

3. Save the control dictionary number in 
the R-pointer field if the ESID has 
been processed and it is not to be 
bypassed. 

4. Test the ESD type, and if it is not an 
ER, scan the RLD card image for the 
constant. If ER type is found, set a 
flag in the R-pointer field signifying 
to Pass 2 use the relocation factor 
plus the assembled origin as the relo- 
cation attribute. 

Constants are processed by this routine 
starting at location RLCONS in this way: 

1. Return to scan RLD card image, if there 
are more items belonging to these R and 
P pointers . 

2. Return to scan RLD card image, if no 
more items are found, after resetting 
program switch RLSWl to NQP (forcing 
pointer processing) . 

When the card image scan is finished, 
the routine branches to RLWRIT. If no 
RLD*s are wanted at this time this program 
switch is set to branch to RDNEXT. When 
the switch is in the NOP state, the routine 
updates the total byte count of RLD's and 
continues at location BLKRLD. The instruc- 
tions starting at BLKRLD perform the same 
functions for RLD records as the instruc- 
tions at BLKTXT perform for TXT records 
(see TXT Processor). 



END CARD PROCESSOR (ENDRTN) CHART KM 

Objective: Process an END card to locate 
and save a transfer address for a phase. 

Entry: From GETCD, via the routine that 
fetched the card processor. 



Method: To initialize for END card proc- 
essing, the routine first determines if a 
submodular control card has been found. If 
it has been found, the routine performs 
these steps: 

1. Set up return position and new posi- 
tion. 

2. Reset flags SUBLVL and SUBFLG. 

3. Go to END card processing. 



If the submodular card has not been 
found: 

1. Go to END card processing when primary 
input is found. 

2. Go to END card processing if the input 
is not primary (first INCLUDE card with 
a namelist field), and after the next 
list has been down-dated. 



Actual END card processing begins at 
location ENDPRC. The routine determines if 
another transfer address has been accepted. 
If it has, branch to ENOXFR to bypass this 
END card. If a transfer address has not 
been accepted, the END card is examined for 
transfer information after canceling the 
previously established transfer address. 
If the card contains a label, that address 
becomes the transfer address. Any END card 
with no ESID number and a blank name field 
indicates no transfer address available for 
this card. An END card with an ESID number 
(relative to the control section in which 
the end occurs) causes the routine to pick 
up the related control dictionary number. 
The routine substitutes the control dic- 
tionary number for the ESID number. 
(Provision is made for handling not- 
processed and bypassed ESID numbers.) 



If a label was present in the END card 
or if the control dictionary number 
substitution was successful, the routine: 

1. Turns on the transfer switch for phase 
end. 

2. Puts the transfer information into an 
area (X-area) for later use. 

It next scans the control dictionary for an 
unassigned LD/LR. When found, the routine 
determines if the control dictionary number 
is negative. A positive number at this 
point is an error. When the scan is com- 
plete, the routine sets up and executes a 
loop to destroy the linkage table (built j 
separately for each module) . 
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The routine testis switch DERDSW to 
determine if control section length is 
required. If not, the routine tests the 
end- entry flag. If it is off, the routine 
exits to GETCD. If it is on, it turns it 
off and exits to the AUTOLINK processor, 
Chart JP. 

If control section length is required, 
the routine tests card column 29. If 
column 29 is non-zero, the length is inval- 
id. If zero, the next possible phase orig- 
in becomes the sum of the current possible 
phase origin and the control section 
length. Switch DERDSW is set to indicate 
that the control section length has been 
processed. The routine exits to either 
GETCD or to the AUTOLINK processor. 



Method: This routine checks phase names 
and takes the following actions: 

1. $ type phase name. Sets a switch for 
Pass 2. 

2. $$A type phase name. (Lowest form in 
collating sequence.) 

a. This phase name low. Branch to 
ERR21 for error handling. 

b. This phase name high or equal. Con- 
tinue processing. 



The origin field of the phase card image 
is processed next. The processing of ori- 
gin depends on how origin is defined. The 
definitions and associated processing are: 
1. ROOT: (First phase only). Move X'Ol 9 
into ROOTNO, zero the control diction- 
ary number, and set the root origin to 
equal the end-of- supervisor address. 



REP PROCESSOR (REPRTN) CHART KN 



Objective: Process a REP patch card so 
that its card image resembles a TXT card. 
It can then be processed as another TXT 
card. 

Entry: From GETCD, via the routine that 
fetched the card processor. 

Method: After printing the card image, the 
routine obtains the hexadecimal origin 
specified by the card. It branches to the 
HEXRTN subroutine to convert the origin to 
binary, and stores this information in 
column 5 of the REP card image. Similarly, 
the ESID number in column 1*4 is converted 
and returned to column 15. 



LABEL: (Cannot be in first phase 
because there would be nothing to 
reference). Search the control 
dictionary for a matching label and 
take these steps: 

a. SD: Add relocation factor to assem- 

bled origin and go to ISDISP. 

b. Assigned LD/LR: Get the SD item 

pointed to by the ESID and add its 
relocation factor to the assembled 
origin. Go to ISDISP. 

c. Phase entry: Test for a qualifier 

(a pointer used to reference a 
phase) . If not found, go to 
ISDISP. If found, get the phase 
number, and if it matches the 
qualifier, branch to ISDISP. 



The text portion of the REP card is 
converted from digits, four at a time. 
Each set of four digits must be followed by 
a comma or blank. A comma indicates more 
text follows, and the routine loops through 
the conversion sequence. If a blank is 
found, the routine stores the byte count in 
column 11 (two bytes for each set of hexa- 
decimal digits). A blank indicates no more 
text is available on the REP card image. 
Now, the REP card image is compatible with 
a TXT card image, and this routine branches 
to the TXT processor, Chart KJ. 



PASS 1-CORELOAD 3 



PHASE PROCESSOR (PHSPRO/PHSFIN) CHART LC 



S: Origin is end of supervisor. 
ISDISP. 



Go to 



4. ASTERISK: Origin is end of previous 
phase or, if first phase, end of super- 
visor. Go to ISDISP. 

5. BLANK: Go to ISDISP. 

At location ISDISP any plus or minus 
displacement is added to the base just 
determined. If a minus sum is found, the 
routine branches to ERR24 for error han- 
dling. Otherwise, the newly created phase 
origin is put on a doubleword boundary, a 
control dictionary image is built in loca- 
tion SYMBOL, and the routine tests for a 
first-phase condition. First phase causes 
a branch to NEWPHS. Phases other than the 
first cause a branch to TRFRAD, Chart LG, 
to determine the transfer address. 



Objective: Process a phase card image. 

Entry: From the phase scanning routine, 
Charts LA and LB. 



At location NEWPHS the new phase header 
is written on tape for use by the following 
passes, flags are reset, and the routine 
exits to GETCD. 
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ENTRY PROCESSOR (ENTRTN) CHART LH 



Objective: Supply a transfer address if at 
this point a new transfer address is 
desired. 

Entry: From GETCD, via the routine that 
fetched the card processor. 

Method: This routine locates the operand 
field of the ENTRY card image via POSRTN. 
Control goes to TRFADR to determine the 
final transfer address. When control is 
returned to this routine, it searches for a 
common in the control dictionary. When 
found , it adds the length of the common to 
the assembled origin and to the previous 
address. After all commons have been pro- 
cessed, it updates the end of supervisor 
address and the linkage editor communi- 
cations region. 

It next searches the control dictionary 
and performs these steps, depending on the 
control dictionary entry found: 

1. Phase entry. Add length of common to 
both high and low storage addresses and 
continue the scan. 

2. SD/PC entry. Continue the scan. 

3. Other entries. Add length of common to 
the relocation factor and continue the 
scan. 

When the end of the control dictionary 
is reached, the routine sets the overriding 
transfer address to zero and tests the 
operand field. 

1. Blank operand. Transfer address 
remains a zero. The routine positions 
the files for Pass 2 and fetches that 
pass. 

2. Nonblank operand. Search the control 
dictionary for a matching label. If 
none is found, process as in step 1. 
If the label is invalid, continue the 
scan. If the label is valid, add the 
relocation factor to the assembled 
origin, make the sum the transfer 
address, and exit as described in step 
1. 



PASS 2 



Entries: Fetched by Linkage Editor Pass 1. 
The entry point label is STARTl on chart 
MA. 

Method: If there are no entries in the 
control dictionary Pass 2 and Pass 3 are 
bypassed and Linkage Editor Pass 4 
($LNKEDTL) is fetched. Pass 2 prints the 
Linkage Editor MAP, if requested, and 
assembles the core image blocks. 



MAP 



The MAP is printed on SYSLST. SYSLST may 
be either a printer or a tape. First a 
heading line is printed. Then a scan is 
made from the beginning of the control 
dictionary, and information is listed from 
all common type entries. Then control- 
section and entry-point information for 
each phase is printed. To finish the MAP, 
the control dictionary is scanned again and 
all unreferenced symbols, EXTRN's, are 
listed. EXTRN's may be followed by any of 
these messages: 

1. ROOT PHASE OVERLAID BY SUCCEEDING PHASE 

2. POSSIBLE INVALID ENTRY POINT 
DUPLICATION IN INPUT 

3. INVALID TRANSFER LABEL ON ENTRY OR END 
STATEMENT IGNORED 

4. CONTROL SECTIONS OF ZERO LENGTH IN 
INPUT 

When the MAP is complete, the routine 
branches to DECSON to compress the control 
dictionary entries. 



Compress Control Dictionary 



Each control dictionary entry is reduced 
from 16 bytes to 8 bytes. This is done by 
dropping the name field, or first 8 bytes, 
from the entry. The routine looks at the 
name field at this time to see if storage 
protection or Supervisor is specified. If 
the Linkage Editor output is to be cata- 
loged, the end of supervisor address and 
the storage-protected problem- program 
address are changed in the supervisor com- 
munications region. This is the last time 
the name field is needed by Linkage Editor. 



LINKAGE EDITOR ($LNKEDTF) CHARTS MA TO MG 



Objectives: 

1. To relocate addresses and assemble core 
image blocks from TXT input records. 

2. To compress the control dictionary 
entries to 8 bytes. 

3. To print the Linkage Editor MAP if it 
has been requested. 



Assemble Core Image Blocks 



TXT card images are contained in blocked 
records on SYS001. 

The output block number that each logi- 
cal TXT record will go into is computed. 
As long as the block number of the TXT 
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record equals the number of the block being 
built in storage, the TXT record is moved 
into the block. 



When the TXT record block number is 
higher than the number of the block in 
storage, the block in storage is written on 
the output tape. This condition is 
referred to as a forward origin. The out- 
put tape is SYS000 until the first backward 
origin, and alternates with SYS00 2 each 
time a backward origin is detected. 



When the TXT record block number is less 
than the number of the block in storage, 
the block in storage is written on the 
output tape. This condition is referred to 
as a backward origin. The action to be 
taken is determined by what output tape has 
the most blocks written on it. 

When the first backward origin occurs, 
the alternate output tape, SYS002, has no 
blocks written on it. Refer to Figure 45. 
The current output tape must be backspaced 
until it is positioned before the first 
block written on it. Then the output tapes 
are switched. Blocks are read into storage 
and copied on the alternate tape until the 
block in storage equals the block number of 
the input TXT record. Input TXT records 
and blocks already written on the output 
tape are merged and written on the alter- 
nate output tape. 

When another backward origin occurs, two 
conditions can exist. Refer to Figure 45. 
The previous output tape may have more 
blocks on it than the current output tape. 
Blocks must be copied from the alternate 
tape to the current tape until they have 
the same block count. The action that is 
then taken is the same as when the current 
output tape has the most blocks. Refer to 
Figure 45. 

Both tapes must be backspaced to a point 
where the blocks on both tapes are dupli- 
cates. This point is referred to as the 
minimum, MIN. The output tapes are 
switched and blocks are copied on the 
alternate tape from the previous output 
tape until the block in storage equals the 
block number of the input TXT record. The 
action taken is the same from this point as 
for the first backward origin. 

An XFR record in the input from SYS001 
indicates the end of a phase. If the 
transfer address of the phase is not in the 
XFR record, the relocated phase origin 
address is used as the transfer address for 
the phase. If there are more blocks on the 
alternate tape than on the current tape at 
this time, they must be copied on the cur- 
rent tape. 



All phases are assembled into core image 
blocks in the same manner. The final out- 
put is on SYS000 if the total number of 
backward origins is even. It is on SYS002 
if the total is odd. When a tape mark is 
encountered on SYS001, all phases are pro- 
cessed and the tapes are positioned for 
Pass 3. 



First Backward Origin When Alternate Output Tape Has No 
Block 



MIN 



Alternate 




Core Image Blocks 
3 




4 
Current 

TXT concerns block 2 
Backspace current tape to MIN 




Backward Origin When Alternate Output Tape Has More 
Blocks Than Current Tape 



MIN 



Alternate 



2 3 O TT 7 




4 
Current 

TXT concerns block 3 

Copy blocks 5, 6, and 7 and backspace both tapes to MIN 



Backward Origin When Current Output Tape Has More Than 
Or the Same Number of Blocks as the Alternate Output Tape 



MIN 



Alternate 





TXT concerns block 3 
Backspace both tapes to MIN 



Figure 45. Backward Origin in Linkage 
Editor Pass 2 



Block Count Labels 



X - number of the output block to which 
this input TXT record belongs. 
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Y - number of the block in the output area 
of storage. 

RIPT - number of blocks written on alter- 
nate output tape. 

ROPT - number of blocks written on current 
output tape. 

MIN - least number of blocks that would not 
have to be copied to alternate tape when a 
backward origin occurs. 

OPTCT - total number of output blocks for 
all phases. 



skip to channel 1 before printing, and the 
CCW is set for writing on tape. The header 
is then written on tape and, if EOF is >hot 
reached on SYSLST, the line count is 
updated, a blank line is written on tape, 
and a branch is made to COMPUTE, Chart NB. 
If EOJ is reached on SYSLST, Pass U is 
fetched to process the error. 



COMPUTE BUFFER SIZE (COMPUTE) CHART NB 



Objectives: 

1. Compute size of RLD input buffer. 

2. Determine amount of usage for RLD buf- 
fer. 



PASS 3-C0REL0AD 1 



INITIALIZATION (INITIAL) CHART NA 



Objectives: 

1. Save logical unit assignment for text. 

2. Open the work and RLD tape files. 

3. Print header. 

Entry: Fetched by Linkage Editor Pass 2. 

Method: After saving the logical unit 
assignment for TXT card information, this 
routine positions the RLD and work tapes to 
the beginning of the first file. If the 
user has not requested MAP, this routine 
branches to COMPUTE, Chart NB, to calculate 
the size and estimated usage of the RLD 
buffer. 

If the user requested MAP, this routine 
determines the number of phases processed 
and lines needed for the header, and com- 
pares it to the number of print lines 
remaining for this particular page. If 
enough print lines remain, a blank line is 
printed, and SYSLST is checked for end-of- 
file (EOF). If EOF is reached on SYSLST, 
Pass ** is fetched to process the error. If 
EOF is not reached, this routine branches 
to COMPUTE, Chart NB. 

If there are not enough print lines 
available to print the header, the date is 
moved to the communications region. If 
SYSLST is not a tape, the CCW is set to 
perform a skip to channel 1, the paper is 
positioned on the printer, and the header 
is printed. SYSLST is then checked for 
EOF. If it is not EOF, the line count is 
updated by subtracting two from the maximum 
line count and storing the result in the 
remaining lines count. A blank line is 
printed and a branch is made to COMPUTE, 
Chart NB. 

If SYSLST is assigned to a tape unit and 
MAP is requested, the ASA code is set to 



Entry: From the Initialization routine for 
Pass 3, Corelpad 1 (INITIAL), Chart NA. 

Method: This routine uses the greater of 
either the true end address of this RLD 
processor phase or the end address of Pass 
3-Coreload 2, as the starting address of 
the RLD input buffer for this pass. 

To compute the end address of the RLD 
buffer and to determine the amount of usage 
for this buffer, several computations are 
performed. 



TXT Buffer Computation 



This routine subtracts the size of the area 
containing the RLD input records from the 
address of the last compressed control 
dictionary entry, and compares the result 
to the address of the last compressed con- 
trol dictionary entry minus the text block 
size. If the first calculation is greater 
than the second calculation, the resulting 
address of the second calculation is used 
as the address of the TXT buffer. If the 
first calculation is less than or equal to 
the second calculation, the resulting 
address of the first calculation is used as 
the address of the TXT buffer. 



Estimated RLD Buffer Usage computation 



This routine multiplies the number of bytes 
of RLD information processed by Pass 1 by 
1.5 to determine the maximum increase for 
the RLD items. The result is the estimated 
RLD usage for this buffer. This routine 
then gets the number of phases processed by 
Pass 1, multiplies by 32 (the size of the 
phase header in the RLD buffer) , and adds 
the result to the estimated RLD usage just 
calculated. The result is the estimated 
usage for the entire RLD buffer. 
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Estimated End of RLD Buffer Computation 



This routine subtracts the address of the 
RLD buffer from the address of the text 
buffer to get the size of the RLD output. 
This information is stored in the CCW for 
the work tape. The number of bytes of RLD 
information processed by Pass 1 is then 
added to the address of the RLD input buf- 
fer to get the estimated end address for 
the RLD buffer. 

If the RLD buffer is not large enough to 
hold all the RLD's for every phase pro- 
cessed in Pass 1, the write-out switch is 
set to indicate only the RLD's for one 
phase are to be read in and processed at 
one time. If the buffer is large enough, 
all the RLD's are read in and processed. 

The RLD and work tape CCW's are then 
initialized for read and write, respective- 
ly, and a branch is made to RLDRD to read 
the RLD records from tape. 



READ RLD TAPE (RLDRD) CHART NC 



Objectives: 
tape. 



Read the records from the RLD 



Entry: From the Compute Buffer Size rou- 
tine (COMPUTE), Chart NB. 

Method: This routine reads a record from 
the RLD tape. If there are no more RLD's 
to be read, this routine branches to the 
end- of -RLD - s routine (ENDPH), Chart NN. If 
the record read was a phase record, this 
routine branches to PHRCD to process the 
record. If it was not a phase record and 
this is the first time through this rou- 
tine. Pass 4 is fetched to process the 
error, indicating the first entry on the 
RLD tape was not a phase record. If a 
phase record was not read and this was not 
the first time through this routine, a 
branch to RLDFOT to format the RLD's is 
made. 



Method: If this is the first time through 
this routine, a branch is made to PHMOVE to 
format the phase entry. If this is not the 
first time through this routine, the code 
indicating the end of the previous phase is 
moved to the RLD buffer. Using the PRTHDR 
subroutine, the phase name and transfer 
address are then printed. 

If the RLD's are to be written on tape 
on a per-phase basis, they are written out 
on the work tape (SYS001) , and the address 
of the RLD buffer register is reinitial- 
ized. If EOF is reached while writing on 
SYS001, Pass 4 is fetched to process the 
error. If EOF is not reached, the first 
time switch is turned off, and the phase 
name is moved to the RLD buffer. The size 
of the common area is added to the phase 
origin and the new phase origin is moved to 
the RLD buffer. The address of the phase 
entry in the control dictionary is obtained 
with the FNDIDX subroutine. 

Next, the high address of the phase 
being processed is tested to determine if 
it is the longest phase processed up to 
this time. If it is, its address is saved 
for comparison to later phases. The phase- 
end address is then moved to the RLD 
buffer, together with the information for 
the phase entry from the control diction- 
ary. Using the BUILDHDR and UPDATE subrou- 
tines, the header containing the phase name 
and transfer address is built, the RLD 
buffer register is increased by 4, and a 
branch to RLDRD is made to read the next 
record on the RLD tape. 



RLD FORMATTING (RIDFMT) CHART NG 



Objectives: 

1. Compute end of RLD record. 

2. Test for valid ESD type. 

3. Get relocation factor and assembled 
origin for RLD. 

Entry: From the Read RLD Tape routine 
(RLDRD) , Chart NC. 



PROCESS PHASE RECORD (PHRCD) CHART ND 



Objectives: 

1- Print phase name and transfer address. 

2. Write RLD's for phase on SYS001. 

3. Find address of phase entry in control 
dictionary. 

4. Compute high address of phase in stor- 
age. 

5. Build header. 

Entry: From the Read RLD Tape routine 
(RLDRD), Chart NC. 



Method: After obtaining the number of RLD 
records to be formatted and the number of 
bytes in each record, this routine -sets the 
pointer to the first byte of the record. 
It picks up the number of bytes of informa- 
tion in the record and adds to it the 
address of the first R- pointer (points to 
the relocation factor of the contents of 
the load constant) in order to determine 
the end-of- record. 

It saves the R-pointer and P- pointer 
(points to the relocation factor of the 
control sections in which the load constant 
occurs) and determines if this RLD is to be 
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ignored. If this RLD is to be ignored, the 
pointer is moved to the next flag field 
that indicates the type of constant. If 
this entry has the same R- and P- pointer, 
the pointer is moved to the next flag and a 
check is made for end- of* record. If this 
entry does not have the same R- and P- 
pointer as the last entry, this routine 
gets the address of the R- pointer for this 
entry and branches to ENDTST to determine 
if this is the end of information for this 
record. 

If this RLD is not to be ignored, the 
routine saves the address of the assembled 
origin byte and determines the address of 
the entry in the control dictionary, using 
the FNDIDX subroutine. It then determines 
if this entry is a Label Reference (LR) 
type of ESD. If it is, the routine checks 
to see if it could be a phase entry. If it 
could be a phase entry, an error is noted 
and processing continues. If the LR -is not 
a phase entry, this routine saves the 
assembled origin address and, using subrou- 
tines ESDTST and GETRF, tests for valid ESD 
types and gets the relocation factor from 
the ESD and puts in a bucket. The routine 
then branches to MOVRFAO to move the relo- 
cation factor and assembled origin to the 
RLD buffer. 

If the entry was not an LR, a test for 
valid ESD types is performed using subrou- 
tine ESDTST. The relocation factor is 
obtained using subroutine GETRF. After 
getting the assembled origin, a branch is 
made to MOVRFAO to move the relocation 
factor and assembled origin to the RLD 
buffer. 



MOVE R/F AND A/0 TO BUFFER (MOVRFAO) 
CHART NK 



Objectives: Move relocation factor and 
assembled origin to RLD buffer. 

Entry: From the RLD Formatting routine 
(RLDFMT), Chart NG. 

Method: This routine first moves the relo- 
cation factor and the assembled origin of 
the constant to the RLD buffer area. The 
RLD buffer pointer is increased by eight, 
and the P-pointer is analyzed. This rou- 
tine then computes the address of the entry 
in the control dictionary using subroutine 
FNDIDX. It determines whether this is 
either a Section Definition (SD) or Private 
Code (PC) entry. If it is neither, an 
error indicating an invalid control entry 
from P-pointer is noted, and Pass 4 is 
fetched to process the error. If the entry 
is either an SD or PC, this routine, using 
subroutine GETRF, gets the relocation fac- 



tor from the ESD and stores it in a bucket, 
and then updates the pointer to the next 
flag field on the record. A branch is then 
made to RAO to process this flag, indicat- 
ing the type of constant to be analyzed. 



PROCESS FLAG (RAO) CHART NL 



Objectives: 

1. Get assembled origin of constant. 

2. Compute relocated origin of constant. 

3. Move flag and relocated origin of con- 
stant to RLD buffer. 

Entry: From the Move R/F and A/0 routine 
(MOVRFAO), Chart NK. 

Method: Having saved the flag indicating 
the type of constant, this routine gets the 
assembled origin of the constant, adds to 
it its relocation factor, and stores the 
result as its relocated origin. It then 
determines if the relocated origin of this 
constant is greater than the relocated 
origin of the last constant processed* If 
it is not greater, a bit is set in the 
phase entry to indicate the RLD's in this 
phase are nonsequential. 

If the relocated origin of this constant 
is greater than the last, it is saved for 
comparison to the next constant to be pro- 
cessed. The flag and relocated origin are 
then moved to the RLD buffer, and the RLD 
buffer pointer is increased by 4. 

This routine then examines the next 
field in the record. If this field has the 
same R~ and P-pointer as the last entry, a 
branch to the beginning of this routine is 
made to process the flag. If this field 
does not have the same R- and P-pointer as 
the last, a branch to ENDTST is performed 
to check for end- of- record. 



TEST FOR END-OF-RECORD (ENDTST) CHART NM 



Objectives: 

1. Test for end of information for this 
record. 

2. Test for last input record in storage. 

3. Get starting address of new record. 

Entry: From the RLD Formatting routine 
(RLDFMT), Chart NG, and the Process Flag 
routine (RAO), Chart NL. 

Method: This routine determines if this is 
the end of information for this input 
record. If it is not the end of informa- 
tion, a branch to RPOINT to process the 
R-pointer is made. If it is the end of 



86 IBM S/360 BOS System Control (16K Tape) 



information for this record, this routine 
determines if it is the last RLD input 
record in main storage at this time. If it 
is the last record, a branch is made to 
RLDRD to read the RLD f s for another phase, 
if required. If it is not the last record 
in storage, this routine gets the beginning 
address of the record just processed and 
adds to it the number of bytes in the 
record to get the starting address of the 
next record in storage. It then branches 
to NEWRCD to compute the end address for 
this new record. 



END OF RLD'S (ENDPH) CHART NN 



Objectives: 

1* Save end address of longest phase in 
storage. 

2. Write RLD f s of last phase on tape. 

3. Rewind work and RLD tapes. 

4. set copy switch for Pass *u 

Entry: From the Read RLD Tape routine 
(RIDRD), Chart NC. 

Method: , This routine first saves the end 
address of the longest phase in storage and 
then moves the end-of -phase code to the RLD 
buffer area. Using subroutine PRTHDR, it 
prints the phase name and transfer address. 
It determines if RLD records are to be 
written on tape. If so, this routine 
writes the RLD's for the last phase on 
SYS001 and checks for EOF. It then writes 
a tapemark on the work tape (SYS001) and 
rewinds the tape. If the TXT and RLD's are 
on the same tape, this routine fetches the 
second coreload for Pass 3. If the TXT and 
RLD's are not on the same tape, the copy 
switch for Pass 4 is turned on, the RLD 
tape (SYS002) is rewound, and the second 
coreload for Pass 3 is fetched* 

If RLD's are not to be written on tape, 
this routine branches to TMWORK to write a 
tapemark on SYS001, and continues process- 
ing as just described* 



SUBROUTINES FOR PASS 3, CORELOAD 1 



MOVWRK: 



Loads the address of the CCB for 



the work tape, and requests an I/O 
operation to write on SYS001. 

MOVRLD : Loads the address of the CCB for 
the RLD tape, and requests an I/O oper- 
ation to read from SYS002. 

FNDIDX: Subtracts the root number from the 
phase number, and multiplies the con- 



trol dictionary number by 8 to get the 
displacement. It then loads the 2's 
complement of the displacement into a 
register and adds the negative dis- 
placement to the end address of the 
control dictionary to get the address 
of the control dictionary entry 
desired. 



GETRF (Chart NJ) : Moves the relocation 

factor of the constant to a bucket. It 
then determines if the sign of the 
relocation factor is plus. If it is 
plus, the subroutine branches back to 
the main routine via LINKRG. If the 
sign of the relocation factor is nega- 
tive, the 2 f s complement of the reloca- 
tion factor is stored in the bucket, 
and the subroutine branches back to the 
main routine via LINKRG. 

UPDATE : Increases the RLD buffer pointer 
by four, and determines if the buffer 
is full. If it is full, an error indi- 
cating that the buffer was full when 
not expected is noted, and Pass 4 is 
fetched to process the error. If the 
buffer was not full, this routine 
branches back to the main routine via 
LINKRG. 

ESDTST (Chart NH) : Determines if this 

entry is an SD or PC entry. If it is 
an SD or PC entry, the subroutine 
branches to the main routine via 
LINKRG. If it is not an SD or PC 
entry, the subroutine determines if the 
ESD number is valid. If the ESD number 
is invalid, the total number of unre- 
solved address constants is increased 
by 1, and a branch to main routine is 
made via LINKRG. 

If the ESD number is valid, the 
subroutine determines if it is a Common 
(CM) entry. If it is not, the error 
count is increased by 1, the total 
number of unresolved address constants 
is stored* and a branch to the main 
routine is made via LINKRG. If it is a 
CM entry, the length of the assembled 
origin field is zeroed, and a branch to 
the main routine is made via LINKRG. 

BUILDHDR (Chart NF) : Moves phase name to 
print area, and transfer address to 
output area. It saves registers 2-7 
and gets the address of the print and 
output work areas. The subroutine then 
gets an 8-byte character from the out- 
put area and the address of the print 
character from the hexadecimal conver- 
sion table (TABLE) . It converts half 
of a character at a time and moves it 
to the print area. After all the char- 
acters have been converted and moved to 
the print area, the subroutine restores 
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register 2-7 and returns to the main 
routine via LINKRG. 

PRTHDR (Chart NE) : Determines if MAP has 
been requested. If MAP has not been 
requested, the subroutine branches to 
the main routine via LINKRG. If MAP 
was requested, it assumes SYSLST is a 
printer and sets the command code for 
printer and ASA code accordingly. At 
this time, the assignment for SYSLST is 
checked. If SYSLST is a tape, the CCW 
is set for tape write. The line count 
is decreased by one. If the line count 
is zero, it is reset, and a command to 
write and skip to channel 1 is issued. 
If SYSLST is a tape, the ASA code is 
set to skip to channel 1, and the CCW 
is set for tape write. If the line 
count is not zero, the line count is 
stored, the phase name and transfer 
address are printed, and SYSLST is 
checked for EOF. If EOF occurs, Pass 4 
is fetched to process the error. If 
EOF does not occur, the subroutine 
branches to the main routine via 
LINKRG. 

Error Message Routines ; If an error occurs 
during Pass 3, Coreload 1, the proper 
error code is stored in register 2, and 
Pass 4 is fetched to process the error. 



PASS 3-CORELOAP 2 



INITIALIZATION (START) CHARTS PA-PC 



Objectives: 

1. Change assignments for TXT and work 
tapes if necessary. 

2. Read RLD's from SYS001. 

3. Write header for phase entry. 

4. Read a text block. 

5. Insert address constant in text. 

Entry: From Pass 3, Coreload 1 

Method: After storing the address of the 
RLD buffer from Pass 3, Coreload 1, this 
routine determines if the compressed RLD's 
are on tape. If the RLD' s^ are on tape, a 
skip to the first tapemark on SYS001 is 
made. If the RLD's are not on tape, it is 
assumed that all the RLD's for the phases 
processed in pass 1 could fit into main 
storage at one time and that Pass 3, Core- 
load 1, after formatting the RLD's, kept 
them in compressed format in storage. 

This routine next determines if the 
assignments for the text and work tapes 
need to be changed. If they do, it changes 
the work tape assignment for SYS000 to 
SYS002, and the text tape assignment for 



SYS002 to SYS000. The routine then posi- 
tions the two tape files, stores the 
address of the TXT buffer in the TXT CCW, 
and stores the size of the TXT block in the 
work tape CCW. It adds two to the text 
block size to allow for the phase number 
and stores the result in the TXT CCW . It 
sets the RLD, buffer register to point to 
the start of the phase, and determines if 
it is the end-of-phase processing. If it 
is, the routine branches to ENDPHA to fetch 
Pass 4. 

If it is not the end-of-phase proces- 
sing, it again determines if the compressed 
RLD's are on tape. If they are not, the 
routine branches to NEWPHA to set up the 
phase header. If the RLD's are on tape, it 
reads the RLD's from SYS001 and tests for 
EOF. If EOF is reached, Pass 4 is fetched 
to process the error. If it is not EOF, 
the last-block switch is turned off and the 
phase name, origin, end address, and entry 
point for the RLD are moved to the header. 
It then moves to the header the highest 
address of the longest phase, the size of 
the text blocks, the number of blocks, and 
the number of bytes in the last block. 

The routine stores the phase number, 
determines if the RLD f s are sequential, and 
sets the appropriate switch to indicate 
their status. It writes the header, using 
the WRTHDR subroutine, and sets the pointer 
to the first RLD in the buffer. This rou- 
tine then determines if all the RLD's for 
one phase have been read. If all the RLD's 
for one phase have been read, a switch is 
set to show no more RLD's, and processing 
continues. If all the RLD's for one phase 
have not been read, this routine reads a 
text block and gets the new low address of 
text in storage. 

It determines if the phase number for 
the text block and the phase number in the 
header agree. If they do not, this routine 
fetches Pass 4 to process the error. If 
they do agree, a check for the last block 
of the phase is made. If it is not the 
last block of the phase, the routine gets 
the new high address of the text in storage 
by adding the text block size to the text 
end address, and branches to CONTST to 
determine if an address constant from a 
previous text block is to be inserted in 
this text block. 

If it is the last text block of a phase, 
a switch indicating the last block of the 
phase is set, and a text is made to deter- 
mine how many bytes of text are to be writ- 
ten on tape. If there are 61 bytes or less 
of text to be written, the byte count in 
the work tape CCW is set to 122, a switch 
to double text is set, and a branch to 
COMPNT is made to get the new high address 
of the text in storage. If there are more 
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than 61 bytes of text to be written, this 
routine moves the number of bytes in the 
last block to the CCW for the work tape r 
and gets the new high address of the text 
in storage by adding the number of bytes in 
the last text block for this phase to the 
text end address plus one. The routine 
then branches to CONTST to determine if an 
address constant from a previous text block 
is to be inserted. 

If no address constant from a previous 
text block needs to be inserted in this 
text block, this routine branches to RLDTST 
to match the RLD to the text block in which 
it belongs. If an address constant is to 
be inserted into this text block, it is 
moved into the text block, and a branch to 
RLDTST is made. 



ing address of this text block, the routine 
determines if it is greater than the end 
address of this text block. If it is not, 
a branch to SOBSTI is made to relocate the 
constant. If it is greater than the end 
address of this text block, this routine 
determines if the RLD*s are sequential. If 
they are not, a branch to UPDATE is made to 
point to the next RID. If the RLD's are 
sequential, a branch to TXTWRT is made to 
write the text block on tape. 



RELOCATE CONSTANT (SUBSTI) CHART PE 



Objectives: 

1. Get relocated address of constant. 

2. Determine end address of constant. 

3. Place relocated constant in text block. 



MATCH RLD TO TXT (RLDTST) CHART PD 



Entry: From the Match RLD to TXT routine 
(RLDTST), Chart PD. 



Objectives: 

1. Save relocation factor, assembled ori- 
gin, and address of the R- and P~ 
pointers for this RLD. 

2. Save relocated origin of RLD. 

3. Determine if RLD is within current 
phase and within text block. 

Entry: From Initialization routine for 
Pass 3, Coreload 2 (START), Chart PA. 

Method: This routine first determines if 
there are more RLD's to be processed for 
this phase. If there are no more RLD's to 
be processed, this routine branches to 
DOBBLK to determine if the text block is to 
be doubled. If there are more RLD 9 s to be 
processed, the relocation factor, assembled 
origin, and address of the R- and P- 
pointers for this RLD are saved, the RLD 
buffer register is updated by 8 to point to 
the relocated origin of the RLD, and a test 
is made to determine if this RLD is to be 
ignored. 

If this RLD is to be ignored, a branch 
is made to UPDATE to point to the next RLD. 
If this RLD is not to be ignored, the 
address of the relocated origin is saved, 
and a test is made to determine if the RLD 
is in the current phase. If the RLD is not 
in current phase, one is added to the count 
for RLD items not within the phase, an 
indicator is set to ignore the RLD in 
error, and the routine branches to UPDATE 
to get the next RLD. 

If the RLD is in the current phase, this 
routine determines if the relocated origin 
is less than the starting address of this 
text block. If it is, a branch to UPDATE 
is made to point to the next RLD. If the 
relocated origin is higher than the start- 



Method: This routine computes the relocat- 
ed address of the constant by first sub- 
tracting the starting address of the RLD 
buffer from the low address of text in 
storage, and then subtracting the resulting 
displacement plus two (to eliminate the 
header) from the relocated origin of the 
constant. 

It then gets the end address of the 
constant by adding the length of the con- 
stant to the address of the constant. It 
determines if the end address of the con- 
stant is in storage. If it is not, a 
branch to EXTREAD is made to read the first 
six bytes of the next text block into stor- 
age. 

If the end address is in storage, this 
routine loads the relocation factor of the 
constant into RFBUCK, and determines if 
this is an ER (External Reference) type 
constant. If it is not an ER type con- 
stant, the relocation factor is added to 
the assembled origin, the result is stored 
in the RFBUCK bucket, and the routine 
branches to TESTSUB. If this was an ER 
type constant, this routine branches to 
TESTSUB to determine if the contents of the 
RFBUCK bucket should be subtracted from the 
constant. If the contents of RFBUCK is not 
to be subtracted from the constant, it is 
added to constant, and the relocated con- 
stant is placed in the text block. 

If the entire constant cannot fit in the 
text block, that part of the constant to be 
inserted into the first six bytes of the 
next block is saved, and the routine 
branches to UPDATE. If the entire constant 
fits into the text block, the routine 
branches immediately to UPDATE to point to 
the next RLD item. 
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EXTRA READ (EXTREAD) CHART PF 



Objective: 

1. Read first six bytes of next text 
block. 

2. Move remaining bytes of constant from 
previous text block to first bytes of 
next text block. 

Entry: From the Relocate Constant routine 
(SUBSTI), Chart PE. 

Method: This routine determines if a con- 
stant is to be placed in the first bytes of 
the next text block to be read into stor- 
age. If there is no need to read the next 
text block at this time, the routine 
branches to PULLOUT to insert the constant 
into a register (TEMPRG). 

If the constant needs to be placed in 
the next text block, this routine reads six 
bytes of the next text block into storage, 
turns on the constant- saved switch, and 
tests for EOF. If EOF is reached on the 
text tape, Pass <4 is fetched to process the 
error. If EOF is not reached, the record 
is backspaced, and the constant is moved 
over the phase number that is contained in 
the first two bytes of the record. The 
extra- read CCW is restored to read, and the 
routine branches to PULLOUT to insert the 
constant in the text block. 



GET NEXT RLD (UPDATE) CHART PG 



If the last text block is not to be 
doubled, a branch to TXTWRT is made to 
write the text blocks on the work tape. If 
the last text block is to be doubled, the 
double-text switch is turned off, the last 
text block is doubled, and the text blocks 
for the phase are written on tape. 

This routine then determines if all the 
text blocks for the phase have been read. 
If they have, it branches to GETRLU to read 
the RLD's for the next phase. If all the 
blocks for one phase have not been read, 
the routine determines if all the RLD's 
have been processed. 

If all the RLD's have been processed, a 
branch to RDTXT is made to read a text 
block from tape. If all the RLD's have not 
been processed, the routine determines if 
the RLD's are sequential. If they are 
sequential, this routine gets the address 
of the last R- and P-pointer processed, and 
branches to RDTXT to read the next text 
block. If the RLD's are not sequential, 
this routine sets the pointer to the begin- 
ning of the RLD's and branches to RDTXT. 



END OF PROCESSING (ENDPHA) CHART PH 



Objectives: 

1. Backspace text file, 

2. Rewind RLD tape. 

3. Fetch Pass 4. 



Objectives: 

1. Point to next RLD. 

2. Write text blocks for phase on tape. 

Entry: From the Match RLD to TXT routine 
(RLDTST), Chart PD, and the Relocate Con- 
stant routine (SUBSTI) , Chart PE. 

Method: This routine increases the RLD 
register by four to point to the next RLD, 
and determines if this RLD has the same 
relocation factor and assembled origin as 
the last. If it does, a branch to RIGRLD 
is made to determine if this RLD is to be 
ignored. If this RLD has a different relo- 
cation factor and assembled origin than the 
last, this routine determines if this is 
the end of the phase. 

If it is not the end of the phase, a 
branch to NEWRP is made to save the reloca- 
tion factor and assembled origin of this 
RLD. If it is the end of the phase, this 
routine determines if the RLD's are sequen- 
tial. If they are sequential, the 
end-of-RLD's switch is turned on and a 
branch to DOBBLK is made. If the RLD's are 
not sequential, a test is made to see if 
the last text block is to be doubled. 



Entry: From the Initialization routine for 
Pass 3, Coreload 2 (START), Chart PA. 

Method: After writing a tapemark on the 
work tape, this routine backspaces the text 
file and rewinds SYS001, the RLD tape. If 
it is not necessary to copy the work tape 
onto SYS000, this routine fetches Pass 4 to 
process any errors that may have occurred 
during linkage- editing. If it is necessary 
to copy the work tape onto SYS000, this 
routine backspaces the file on the work 
tape, positions SYSOOO for copy, and fetch- 
es Pass 4 to copy tape and process any 
errors that occurred during linkage- 
editing. 



SUBROUTINES FOR PASS 3, CORELOAD 2 



MOVWRK: 



Loads the address of the CCB for 



the work tape, and requests an I/O 
operation to write on tape. 



MOVRLD: 



Loads the address of the CCB for 



the RLD tape, and requests an I/O 
operation to read from SYS 001. 
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MOVTXT: 



Loads the address of the CCB for 



the TXT tape, and requests an I/O oper- 
ation to read from tape. 



WRTHDR: 



Loads the address of the header 



CCW, and requests an I/O operation to 
write header on work tape, 

NOTIN : Adds one to the counter for RLD 

items outside of phase limits, and sets 
the first bit in the flag field to 
ignore the RLD. The subroutine then 
branches to UPDATE to point to the next 
RLD. 

Error Message Routines : If an error occurs 
during Pass 3, Coreload 2, the proper 
error code is stored in register 2, and 
Pass 4 is fetched to process the error. 



PASS 4 



LINKAGE EDITOR ($LINKEDTL) CHART QA 



Objectives: 

1. To copy Linkage Editor output to SYSOOO 
if it was on SYS00 2 and go to Job Con- 



trol for EOJ. 
2. To cancel Linkage Editor if an abort 
error occurs. 



Entry: Fetched by Pass 3 for normal EOJ. 
Fetched by Pass 1, Pass 2 f or Pass 3 when 
an abort error occurs. 



Method: If register 2 does not indicate 
that Pass 4 was fetched to cancel the job, 
Pass 4 insures that the final Linkage Edi- 
tor output is on SYSOOO. If a Linkage 
Editor MAP was requested, messages are 
printed on SYSLST if there are: 

1. Any unresolved RLD's. 

2. Any TXT or REP outside the limits of a 
phase. 

3. Any RLD's outside the limits of a 
phase. 

Pass 4 then fetches Job Control for normal 
end-of-job processing. 

If Pass 4 was fetched to cancel Linkage 
Editor or if end-of-reel is reached on 
SYSOOO, the message, LINKAGE EDITOR CANNOT 
CONTINUE, is printed on SYSLOG. This mes- 
sage is also printed on SYSLST if a MAP has 
been requested. A supervisor call of 6 is 
issued and Linkage Editor is canceled. 
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LIBRARIAN 



The Librarian is a series of programs that 
maintain and service the three libraries: 
Core Image, Relocatable, and Source State- 
ment, that make up the 16K Tape System 
Residence (see System Residence and Figure 
2). 

The Librarian consists of four programs; 
MAINT, DSERV, RSERV, and SSERV. MAINT 
catalogs and deletes elements of the 
libraries or copies the libraries from one 
unit to another. DSERV displays the names 
of the elements of each library. RESERV 
displays and punches modules from the relo- 
catable library. SSERV displays and punch- 
es books from the source statement library. 



Programming 

Language 

Input 



Language 
Translator 



Source 

Statement 

Library 





Execution 




Figure 46. System Flow and System Librar- 
ies 



LIBRARY FORMAT 



Figure 46 shows the relationship of the 
libraries to the system. Programmer input 
to the language translators can be stored 



in the source statement library in elements 
called books. Output modules from the 
language translators can be stored in the 
relocatable library. Phases from, the link- 
age editor can be stored in the core image 
library . 



The elements of each library are 
arranged by name in collating sequence. 
After the Supervisor and after each li- 
brary, directory, and sublibrary there is a 
tapemark. After the libraries there is a 
26- byte trailer record beginning with 
$BOS$E0V and followed by a tapemark. 



If the relocatable library or the source 
statement library is an independent tape, 
it is preceded by header records and a 
tapemark, and followed by a trailer label 
identical to the one on SYSRES and a tape- 
mark. The header records consist of: 

1. A VOLl label. 

2. A header in the form "HDR PRIVATE LIB — 
R or S". 



SOURCE STATEMENT LIBRARY 



Figure 47 shows the format of the source 
statement library. This library is divided 
into two sublibraries, Assembler and COBOL. 
Preceding the sublibraries is a directory. 
The source statement library is the only 
library with a directory. 



The directory begins and ends with a 
directory label in the following format. 



(byte |S 

J + 

| bytes 1-2 | number of records in direc- 
tory 



^ + ., 

| bytes 3-10 (dummy name (zero's in head- 

| |er; one f s in trailer) 

V + ., 

| byte 11 | reserved 

| byte 12 j dummy compression code *8F* 

| bytes 13-20 (directory name DIRS BKS 

(bytes 21-26 (dummy compression code 

j | , 0F0F0FC00000 i 

,. + ^ 

(bytes 27-171 | not used | 

i x J 



r 
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Each directory record has the following 
format . 



jbyte 

I 

(bytes 1-2 

I 
h 



IS 



I record number within direc- 
Itory 
-+- 



(bytes 3-10 (sublibrary name (ASSEMBLY or 
| (COBOL) 

jbyte 11 (reserved 

(bytes 12-21 j bookname of entry in librar- 
| |y; last two bytes reserved 

t- + 



[bytes 22-171 | up to 15 additional book- 
| | names 



Each sublibrary begins and ends with a 
sublibrary label in the following format* 



(byte 
(bytes 1-2 



(record number within the 
j sublibrary 



-H 



(bytes 3-10 (dummy bookname (zero's in 
I (header; one's on trailer) 



h 



-H 



Jbyte 11 (reserved 

(byte 12 (dummy compression code • 8F - 

(bytes 13-20 | sublibrary name (ASSEMBLY or 

j ( COBOL) 

,. + 4 

(bytes 21-26 (dummy compression code 
| | , 0F0F0FCO0000 f 

L ± , J 



Core Image Library or Relocatable Library 

or Independent Tape Headers for SYSSLB / Tapemark 

Directory Header Label 

ASSEMBLY Directory Records 



COBOL Directory Records 



Directory Trailer Label 



Sublibrary Header Label 
for ASSEMBLY 



Bookname 1 Record 1 



Bookname 1 Record 2 



Bookname 1 Record i 



Bookname 2 Record 1 



Bookname n Record i 



Sublibrary Trailer Label 
for ASSEMBLY 



Sublibrary Header Label 
for COBOL 



Bookname 1 Record 1 



Bookname 1 Record 2 



Tapemark 



/Tapemark 



Within the sublibrary # each data record 
has the following format. 



jbyte 



IS 



I 



H 



(bytes 1-2 (record number within the 
j j sublibrary 

| bytes 3-10 (bookname 

H _ + _ 4 

(byte 11 



j reserved 
+ 



., 

(bytes 12-171 | compressed card images 

Each card is compressed by deleting the 
blanks following the nonblank characters. 
Control bytes within the record indicate 
deleted blanks. The first four bits of a 
control byte indicate the number of non- 
blanks that follow. The second four bits 
indicate the number of deleted blanks. 
Each control byte can account for a maximum 
of 16 nonblanks followed by a maximum of 16 
blanks . 



Bookname 1 Record j 



Bookname 2 Record 1 



Bookname u Record v 



Sublibrary Trailer Label 
for COBOL 



$BOS $EOV. 



Tapemark 



* Tapemark 



Figure 47. Source Statement Library 
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RELOCATABLE LIBRARY 



Figure 48 shows the format of the relocat- 
able library. This library is made up of 
module records from the language transla- 
tors. Each module is preceded by a module 
directory record . 



Core Image Library or 
Independent Tape 
Headers for SYSRLB 



Module 1 Directory Record 



Tapemark 



| bytes 0-1 |R0 | 

| bytes 2-3 j number of records between j 

j j this record and the last tape| 

j j mark 



H 



+ 



H 



j bytes 4-5 (number of records in this 

j | module plus one | 

| bytes 6-13 (module name j 

i 1 j 



Each module record is preceded by a 
two- byte count. The first byte gives the 
number of logical records in the module 
record. The second byte gives the number 
of bytes in a logical record. 



Module 1 Record 1 



Module 1 Record 2 



Module 1 Record 



Module 2 Directory Record 



Module 2 Record 1 



Module n Record m 



Tapemark 



Source Statement Library 
or Library Trailer Record 
$BOS$EOV and 

a Tapemark 



Figure 48. Relocatable Library 
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CORE IMAGE LIBRARY 



Figure 49 shows the format of the core 
image library. This library is made up of 
phase blocks from the Linkage Editor. 
Phases are named in such a way that they 
are grouped in the library by program. The 
first four characters of a phase name are 
identical for each phase in a program. The 
last four characters identify the phase. 
System programs are named so that they will 
appear at the beginning of the library. 

1. Initial IPL phases are $$ASIPL1 and 2 

2. Supervisor is $$A$STJP 

3. Type- A transients are $$AXXXXX 

4. Type-B transients are $$BXXXXX 

5. Job Control, IPL, and Linkage Editor 
phase names are prefixed by a $. 

Each phase is preceded by 61-byte phase 
header. The first byte in the header is a 
C. The next 30 bytes are the header for 
the following phase. The last 30 bytes are 
the header for the previous phase. 



$$A$IPL1 Record 



$$A$IPL2 Record 



C Supervisor Header 00 



$$A$SUP Records 



C 00- 



Supervisor Header 



Phase 1 Header 



• Tapemark 



00- 



Phase 1 Records 



C Phase 2 Header Phase 1 Header 



Phase 2 Records 



C Phase 3 Header Phase 2 Header 



Phase 3 Records 



The first header record contains a zero 
in byte 31. The last record in the library 
contains a zero in byte 1. Each phase 
header is in the following format. 



j bytes 1-8 | phase name 



\ 

| bytes 

i 

J bytes 

(bytes 

I 

| bytes 

I 

H 

| bytes 

I 
h 



-H 



9-12 (starting address 

13-16 lending address 

17-201 transfer address 

21-24 (highest address of all phases 

(in a program 
+ -j 

25-26 | number of bytes in a phase 
(block 
-I ) 



(bytes 27-2 8 | number of phase blocks in the 

| phase 



-+~ 



bytes 29-30 | number of bytes in last 
record 



~H 



C Phase n Header Phase n - 1 Header 



Phase n Records 



00- 



Phase n Header 



Relocatable Library or Source Statement 
Library or Library Trailer Record 
$BOS$EOV and a Tapemark 



Figure 49. Core Image Library 



Tapemark 
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LIBRARIAN MAINTENANCE - MAINT 



MAINT catalogs and deletes elements of the 
three libraries or copies the libraries 
from one unit to another. Job Control 
calls MAINT when it reads a: 

1. // EXEC MAINT control card. 

2. /S control card after reading // OPTION 
CATAL control card. 

In the latter case, the information that 
has been linkage- edited onto SYS000 during 
the job is to be cataloged into the core 
image library at end-of-job. 

In the former case, not only will Lin- 
kage Editor output be cataloged on the 
CATAL option, but also Librarian control 
cards will be read and processed to copy, 
catalog to, or delete from the libraries: 

• COPY CL or RL or SL. 

• CATALR or CATALS. 

• DELETC or DELETR or DELETS. 
Librarian control cards must be given in 
the same order as the libraries and their 
elements are defined. 

Figure 51 shows the program flow of 
MAINT. MAINT has two phase overlays (see 
Figure 50): MAINTR for relocatable library 
functions; MAINTS for source statement 
library functions. The section of MAINT 
that processes core image library functions 
is labeled MAINTC. Figure 52 shows the I/O 
flow of MAINT and of each of the library 
processors. 



Read Librarian 
Control Cards 



EOJ - Write Last Record 



Error Message 



Find Library 



Execute Channel Program 



Copy Complete Library 



Analysis to Fetch Phases 



MAINTC 



MAI NTR 
Overlay 



MAINTS 
Overlay 



MAINT 



Figure 50. 



MAINTR 



MAINTS 



Librarian Maintenance Core 
Allocation 
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c 



D 



O 



ENTMAI SA 



Read Librarian 
Control Cards 



Analyze and 
Get Phase 




Copy 



COPY SE 



Copy Complete 
Library 



Core Image 
Function 



Catalog and 
Delete 



Relocatable 
Function 



Catalog and . 
Delete 



Source Statement 
Function 



Catalog and 
Delete 



Write Trailer 
Record after 
Libraries 



C 
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Figure 51 • Librarian Maintenance Program Flow 
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SYSRDR 




Librarian 
Control 



Programmer 
Messages 



SYSLST 



MAI NT 



Old Core 
mage 
Library 





Operator 
Messages 



MAINTC 



New Core 

Image 

Library 
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Figure 52- Librarian Maintenance I/O Flow 
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NwBit 
Byte X. 





1 


2 


3 


4 


5 


6 


7 


X'80" 


X'40' 


X'20' 


X'10' 


X'08' 


X'04' 


X*02' 


X'OT 


CORBYT 












SLCORE 


RLCORE 


CLCORE 


CPYBYT 












CPYSL 


CPYRL 


CPYCL 


CRDBYT 










NUVBIT 


ENDBIT 


CELBIT 


CATBIT 


EOVBYT 












SLEOV 


RLEOV 


CLEOV 


MNTBYT 






SKIPI 




PRVTPE 




DELCL 




TESBYT 


FRSTCD 
















TAPBYT 












SLBMSK 


RLBMSK 





Figure 53, MAINT Switches 



Supervisor Communications Region Switches 



determines whether or not a library 
must be copied. 



MAINT uses the communications region to 
determine if there is any Linkage Editor 
output which must be cataloged. Bits two 
and three of the linkage-control byte 
(JBCSW1), displacement 57 , contain this 
information. Bit three informs MAINT that 
any Linkage Editor output must be catal- 
oged. 

MAINTC then checks bit two to see if 
there was any Linkage Editor output. Bit 
three is turned on if a //OPTION CATAL card 
is read. This bit is turned off if 2 

1. MAINT is executed successfully. 

2. The abnormal end-of-job cancel routine 
is fetched. 



MAINT Switches 



Figure 53 shows the switch bytes initial- 
ized by MAINT. 



CRDBYT : Used by the Read Librarian Control 
Cards routine- The flags are turned on 
depending on the operation code: NUVBIT 
for a NEWVOL card, ENDBIT for /*, DEL- 
BIT for a DELET card, and CATBIT for a 
CATAL card. 



EOVBYT : Used by the Analysis to Fetch 

Phases routine. The flags are turned 

on as the end of each library is 
reached. 



MNTBYT: DELCL is turned on by the Analysis 
to Fetch Phases routine if a DELETC 
card is read. PRVTPE is turned on by 
the Analysis to Fetch Phases routine 
either if SYSRLB or SYSSLB is assigned, 
or if a NEWVOL card has been read. 
SKIPI is used by MAINTS to skip a book 
and not catalog it to the source state- 
ment library. 



CORBYT : Used by the Analysis to Fetch 

Phases routine. The flags are turned 
on as the phases are loaded into stor- 
age. 

CPYBYT : Used by the Read Librarian Control 
Cards routine. The flags are turned on 
according to the operands on the COPY 
control card. In the absence of a COPY 
control card and a NEWVOL control card, 
all three flags are turned on. The 
Analysis to Fetch Phases routine then 



TESBYT : FRSTCD is used by the Read 

Librarian Control Cards routine to 
determine if the card being read is the 
first card. 



TAPBYT : Used by the First-Card routine. 
RLBMSK is turned on if SYSRLB is 
assigned. SLBMSK is turned on if 
SYSSLB is assigned. 
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READ LIBRARIAN CONTROL CARDS 
CHARTS SA TO SD 



Objective: To read librarian control cards 
from SYSRDR to SYSIPT, and to analyze the 
operation code and operands of the control 
cards. 

Entries: 

1. From Job Control when a // EXEC MAINT 
card is read. 

2. From MAINTC, MAINTR, and MAINTS to 
ENTMAI for another control card oper- 
and. 

3. From MAINTS to: 

• EMAINS on reading a librarian con- 
trol card. 

• AEND on reading a /* card. 

Method: This routine is the first to be 
executed when the control card // EXEC 
MAINT is read by Job Control. The librar- 
ian control cards are read from SYSRDR or 
SYSIPT and printed on SYSLST. The opera- 
tion code is analyzed as: 

• /* to indicate the end of librarian 
control cards. 

• CATAL to catalog a library. 

• DELET to delete a library. 

• OTWVOL to define a new library. 

• COPY to copy one or more complete 
libraries. 

• IPTCTRL to read librarian control cards 
from SYSIPT. 

• RDRCTRL to read librarian control cards 
from SYSRDR. 

When a /* card is read the routine 
branches to the Analysis-to-Fetch-Phases 
routine at OPREN, or to MAINTS, depending 
en which routine is in storage. 

When a CATAL or a DELET card is read: 

1. The catalog or delete switch is set. 

2. The operation code suffix is checked to 
see which library is to be updated. 

3. The routine branches to the 
Analysis-to-Fetch-Phases routine at 
OPRCL, OPRRL, or 0PRSL to load the 
proper phase. 

4. The Analysis-to-Fetch-Phases routine 
returns to SCANFS to get the first 
operand. 

5. The routine branches to the catalog or 
the delete entry of MAINTC, MAINTR, or 
MAINTS to update the library. 

6. These three routines return to ENTMAI 
for the next operand. When all 
operands of the control card have been 
processed, another control card is 
read. 

When a NEWVOL card is read: 

1. The card is an error if it is not the 
first librarian control card. 

2. The new volume switch is set. 

3. The routine reads another control card. 



When a COPY card is read: 

1. The card is an error if it is not the 
first librarian control card. 

2. The operands are checked to see which 
libraries are to be copied. 

3. The routine reads another control card. 

When an IPTCTRL or an RDRCTRL card is 
read,- the symbolic unit name in the DTF for 
control-card input is altered -to SYSIPT or 
SYSRDR. 

The scan subroutines (Chart SD) extract 
the operation code and operands from the 
control card. 

• INITA1 extracts the operation code. 

• FRSTCH extracts the first operand. 

• NXTOPR extracts the remaining operands. 



EOJ (WRITE LAST RECORD) CHART SE 



Objective: To write the end-of- volume 
label on SYS002 and return to Job Control. 

Entry: From the Analysis-to-Fetch-Phases 
routine or from MAINTS when all maintenance 
functions are complete. 

Method: This routine writes the end of 
volume label $BOS$EOV on SYS002 after the 
requested librarian maintenance functions 
are completed. A tapemark is written after 
the EOV label, and tapes used by MAINT are 
rewound. Control is given to Job Control 
by an SVC 14. 



ERROR MESSAGE SUBROUTINE CHART SF 



Objective: To print error messages on 
SYS LOG and SYSLST. 

Method: This routine gets the address and 
length of the error message to set up the 
CCW. There are three types of messages: 

• Information messages 

• Decision messages 

• Action messages 

If it is an information type, the mes- 
sage is printed on SYSLST and the routine 
returns to the link register address. 

If it is a decision type, the message is 
printed on SYSLST. If SYSLST and SYSLOG 
are different devices, the last control 
card read and the message are printed on 
SYSLOG. If SYSLOG is assigned as a 1052, 
the user has an option to ignore the mes- 
sage or cancel the job. 

If it is an action type, the message is 
printed as for a decision type but no con- 
trol card is written on SYSLOG. 
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FIND LIBRARY SUBROUTINE CHART SG 



Objective: To find the beginning of the 
library to be processed and, if necessary, 
to open the output tape SYS 00 2. 

Method: If a new library is being built on 
SYS002, the NEWVOL switch is on and this 
routine does not locate the old library. 
Control skips immediately to OPN2SW to open 
SYS002 if necessary. 

To locate the old library, this routine 
determines if it is on SYSRES or a private 
tape, SYSRLB or SYSSLB. If on SYSRES and 
the library to be found is the core image 
library, SYSRES is rewound. If on a pri- 
vate tape, the private tape is opened. 

A search is made on SYSRES or the pri- 
vate tape for the library. The byte LIBNMG 
contains an indicator for the library to be 
found (C or R or S). The byte RESLBP con- 
tains an indicator for the last library 
found by SKIPTO (0 for no library found, C 
or R or S, $ for the end of the library 
tape found) . 

The routine tests whether the last 
library found is the right one. If not, it 
skips to the next tapemark and reads the 
next header. When the right library is 
found, the routine positions the tape back 
to the header. For SYSRES a count is kept 
of the number of tape marks preceding the 
library. The count of the number of 
records read in the library is set to zero. 

Finally, at OPN2SW, SYS002 is opened if 
necessary, control .returns to the 
Analysis-to-Fetch-Phases routine. 



EXECUTE CHANNEL PROGRAM SUBROUTINE 
CHARTS SH AND SJ 



Objective: To reposition SYSRES if it has 
moved and to execute the requested channel 
program. 

Method: If the entry point is EXCP, set a 
switch to wait after executing the channel 
program. If the logical unit determined by 
the Find Library routine is SYSRLB or 
SYSSLB, execute the channel program. 

If the logical unit is SYSRES, test to 
see if the SYSRES tape has been moved by a 
fetch. If SYSRES has moved, reposition the 
tape using the tapemark count and record 
count. Then execute the channel program. 
Wait if the switch has been set. Reset the 
switch and return to the calling routine. 



The tapemark count and record mark count 
must be updated after each execution of 
this routine. 



COPY COMPLETE LIBRARY CHART SK 



Objectives: To copy complete relocatable 
library from SYSRES or SYSRLB to SYS002, or 
to copy complete source statement library 
from SYSRES or SYSSLB to SYS 00 2. 

Entries: From the Analysis-to-Fetch-Phases 
routine to CPYARL to copy relocatable 
library, or to CPYASL to copy source state- 
ment library. 

Method: The routine uses SKIPTO to find 
the start of the library to be copied. The 
complete library is copied to SYS002. When 
the end of the library is reached, the 
routine returns to ANALEN in the 
Analysis-to-Fetch-Phases routine . 



ANALYSIS TO FETCH PHASES CHARTS SL TO SP 



Objective: To determine if MAINTR or 
MAINTS has been fetched, and to fetch 
MAINTR or MAINTS if necessary. 

Entries : 

1. From the Read- Librarian-Control-Cards 
routine to: 

* 0PRCL if the operation code has a 
C-suffix. 

» 0PRRL if the operation code has an 

R-suffix. 
o OPRSL if the operation code has an 

S-suff ix. 

* OPREN if a /* card is read and 
MAINTS is not in storage. 

© OPREN if MAINT was fetched by a /& 
Job Control card. 

2. From MAINTC, MAINTR, and 

Copy- Complete- Library routines to 
ANALEN when library updating is com- 
plete. 

Method: When more than one library is 
being updated in a single librarian run, 
the libraries must be modified in sequence: 

1. Core image library 

2. Relocatable library 

3. Source statement library. 

The relocatable library and the source 
statement library cannot be on the same 
private tape. SYSRLB and SYSSLB cannot be 
assigned the same tape unit. 
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OPRCL 



MAINTC CHARTS SQ TO SS 



If the control card concerns the core image Objectives: 

library: 1. To catalog phases in the core image 

1. Check that MAINTR or MAINTS has not library. 

overlaid MAINTC. 2. To delete phases or programs from the 

2. Branch to SCANFS for the first operand. core image library. 

3. To copy the core image library. 



OPRRL 



If the control card concerns the relocat- 
able library: 

1. Set ANALEN switch to branch to OPRRL. 

2. Check that MAINTS is not in storage. 

3. Finish processing core image library. 

4. Fetch MAINTR if it is not in storage. 

5. Branch to SCANFS for the first operand. 



OPRSL 



If the control card concerns the source 
statement library: 

1. Set ANALEN switch to branch to OPRSL. 

2. Finish processing other libraries. 

3. Fetch MAINTS if it is not in storage. 

4. Branch to SCANFS for the first operand. 



Entries: 

1. From the Read- Librarian-Control Cards 
routine to: 

• MAINTC for cataloging Linkage Edi- 
tor output. 

• MAINTC+4 on a DELETC statement. 

2. From the Analysis-to-Fetch-Phases rou- 
tine to MAINTC+8 to finish copying the 
core image library before processing 
another library. 



Method: The first time MAINTC is entered, 
IPL and Supervisor programs are either 
cataloged from Linkage Editor output or are 
copied on the output tape SYS002. Only IPL 
and Supervisor cannot be deleted by a 
DELETC card. A tapemark is written after 
Supervisor. 



Copy 



OPREN 



If a /* card is read: 

1. Set ANALEN switch to branch to OPREN. 

2. Finish processing all libraries. 

3. Branch to BO J (Write-Last-Record) rou- 
tine. 



If both the catalog bit in the communi- 
cations region and the delete switch are 
off, the complete core image library will 
be copied to the output tape SYS002. Then 
the core image library trailer label and a 
tapemark are written, and the routine 
branches to the ANALEN entry point of the 
Analysis-to-Fetch-Phases routine. 



The Analysis-to-Fetch-Phases routine has 
the following exits: 

• NEWRD to read next control card when a 
control card in error is being ignored. 

• SCANFS to extract the first operand. 

• MAINTC to copy the core image library. 

• CPYARL to copy the relocatable library. 

• CPYASL to copy the source statement 
library. 

• MAINTC+8 to finish updating core image 
library. 

• MAINTR* 8 to finish updating relocatable 
library. 

• WRTEOV to write EOV label and return to 
Job Control. 

• 0PN2SW to open SYS002. 

• SKIPTO to find the beginning of a 
library. 



Catalog 



If there is output from the Linkage Editor 
to be cataloged, it is merged with the core 
image library on SYSRES in collating 
sequence. The output is on SYS002. If the 
delete switch is on, phases or programs 
specified by the operands of DELETC cards 
will not be copied from SYSRES to the out- 
put tape. If the phase to be cataloged has 
the same name as a phase that is already in 
the core image library, the new phase will 
be included on SYS002 and the old one will 
be deleted. 
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Delete 



If there is no output from the Linkage 
Editor and the delete switch is on, phases 
or programs specified by the operands of 
DELETC cards will be deleted. All other 
phases and programs of the core image 
library will be copied from SYSRES to 
SYS002. 



4. Text (TXT) cards 

5. Replace (REP) cards 

6. Relocation dictionary {BID 1 ) cards 

7. End (END) card. 



ESP , TXT, and RLD cards are packed into 
records that a-re 162 bytes long. The first 
two bytes of the record contain the number 
of logical records and the logical record 
length. The packed record is written on 
SYS001. 



MAINTC Exits: 



ANALEN at the end of the core image 
library to process the other libraries - 
ENTMAI to get another control card 
operand. 



MAINTR CHARTS TA TO TG 



When the END card is read from SYSIPT: 

1. It is written on SYS001. 

2. SYS001 is rewound. 

3. The module header is written on SYS002. 

4. The module is copied from SYS001 to 
SYS002. 

5. The routine returns to the ENTMAI entry 
of Read-Librarian-Control-Cards routine 
for another operand. 



Objectives: 

1. To catalog modules in the relocatable 
library. 

2. To delete modules from the relocatable 
library. 

3. To delete the entire relocatable 
library. 



SYM , REP , INCLUDE , PHASE , and ENTRY 
statements are written on SYS001. The 
first and second operands of the PHASE 
statement are scanned to assure they are 
present . 



Entries: 

1. From the Read- Librarian-Control-Cards 
routine to: 

• MAINTR on a CATALR statement. 

• MAINTR ♦ 4 on a DELETR statement. 

2. From the Ana lys is- to-Fetch- Phases rou- 
tine to MAINTR+8, to finish copying the 
relocatable library before processing 
another library. 

Method: The first time MAINTR is entered, 
SYS001 is opened as a scratch tape. The 
Find-Library routine is used to locate the 
beginning of the relocatable library and 
open the output tape, SYS 002. 



Delete 



If the operand of the DELETR control card 
is ALL, the entire relocatable library will 
be deleted from the output tape SYS002. If 
the operand has a suffix of .ALL, all con- 
secutive modules that have the same three- 
character prefix as the DELETR operand will 
be deleted. If the operand is a module 
name, the module is deleted. 



Catalog 



Copy 



Modules that are specified by the operands 
of CATALR control cards are merged with the 
existing relocatable library in collating 
sequence. The output of this merge is on 
SYS002, The modules to be cataloged are on 
SYSIPT. 

The cards permitted in a module to be 
cataloged are: 

1. Linkage Editor control statements: 
PHASE, INCLUDE and ENTRY 

2. Symbol (SYM) cards 

3. External symbol dictionary (ESD) cards 



To finish copying the relocatable library 
when all operands of CATALR and DELETR 
cards have been processed: 

1. copy the remainder of relocatable 
library to SYS002. 

2. Write a tapemark on SYSQ02 (if there 
are any records in the relocatable 
library). 

3. Use the Find- Library-Routine to locate 
the source statement library if neces- 
sary. 

4. Branch to the ANALEN entry point of the 
Analysis-to-Fetch-Phases routine . 
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MAINTR Exits 



ANALEN at the end of the relocatable 

library to process the source statement 

library. 

ENTMAI to get another control card 

operand. 

AEND on a SYSIPT end-of-file or out-of- 

cards condition to end the MAINT 

procedure. 



MAINTS CHARTS UA TO OJ 



Objectives: 

1. To catalog books in the source state- 
ment library. 

2. To delete books from the source state- 
ment library. 

3. To delete a sublibrary from the source 
statement library. 

Entries: 

1. From the Read- Librarian- Control-Cards 
routine to: 

• MAINTS on a CATALS statement. 

• MAINTS* 4 on a DELETS statement. 

• MAINTS+8 on a /* statement to merge 
input into the source statement 
library. 

Method: The first time MAINTS is entered, 
SYS001 is opened as a scratch tape. The 
Find-Library routine is used to locate the 
beginning of the source statement library 
and open the output tape, SYS002. The 
first block of the directory is read from 
the source statement library. 



Catalog - Pass 1 



Each book name in the directory block is 
compared to the operand of the CATALS card 
until the place is found where the name 
fits in. A new directory block is being 
assembled up to this point. If the block 
becomes full, it is written on the output 
tape, SYS002. 

The book read from SYSIPT is written on 
the scratch tape, SYS001, in compressed 
format. Input on SYSIPT may be in com- 
pressed or card image format. The book 
begins with a BKEND or a MACRO card and 
ends with a BKEND or a MEND card. After 
the book is written on SYS001, the routine 



branches to the Read Librarian Control 
Cards routine for another operand. 



Delete - Pass 1 



Each book name in the directory block is 
compared to the operand of the DELETS card 
until the one to be deleted is found. A 
new directory block is being assembled up 
to this point. If the block becomes full, 
it is written on the output tape, SYS002. 

The book name to be deleted is added to 
a list-of-deletes block. When this block 
becomes full or if a CATALS card is read, 
the block is written on SYS001. The first 
byte is X^O* to identify a list-of-deletes 
block. The routine branches to the 
Read-Librarian-Control-Cards routine for 
another operand. 



Copy and Merge - Pass 2 



When all operands of CATALS and DELETS 
cards have been processed, the remainder of 
the directory is written on SYS002. The 
scratch tape SYS001 is merged with the 
existing source statement library in 
collating sequence. When a list-of-deletes 
block is read from SYS001, these books will 
be bypassed on the existing source state- 
ment library. When a book to be cataloged 
has a book name equal to one already in the 
existing source statement library, the 
existing one is deleted. The output of 
this merge is on SYS002. 

When end-of-file on both SYS001 and the 
existing source statement library is 
reached, the updated library is complete on 
SYS002, and the routine branches to WRTEOV 
in the EOJ- Write- Last- Record routine. 

Figure 54 summarizes the flow of Passes 
1 and 2. 



MAINTS Exits 



• ENTMAI to get another control card 
operand. 

• WRTEOV to write end-of-volume record on 
SYS002. 
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Pass 1 of MAI NTS 

Build Input File and Directory on Output file 

©Control State- 
ments and 
Books to Catalog 



Merge Lists of Book 
Names to Delete, 
and Books to be 
Cataloged 




Source 

Statement 

Library 



Assemble New Directory 
Blocks up to the Point 
of Last Book Updated 



Pass 2 of AAA I NTS 

Merge Input File and Library File on Output File 





Source 

Statement 

Library 



Copy Remainder of 
Directory, then Merge 
Tapes 



Updated Source 
Statement Library 



Figure 54. Passes 1 and 2 of MAINTS 
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LIBRARIAN DIRECTORY SERVICE (DSERV) 



DSERV displays the names of the elements of 
the three libraries. DSERV is composed of 
one phase and is fetched when a // EXEC 
DSERV card is read by Job Control. 

The directory information for the core 
image and relocatable libraries is taken 
from the header records preceding each 
phase or module. The directory information 
for the source statement library is con- 
tained in a directory preceding the subli- 
braries of the source statement library. 

Figure 55 shows the I/O and program flow 
of DSERV. DSERV switches are: 

1. First card switch, TESBYT 

• X f 00' - first card has not been 

read 

• X^O' - first card has been read 

2. Display switch, DSPBYT 

• X*01' - display core image directo- 

ry 

• X'02* - display relocatable direc- 

tory 



• X'OU' - display source statement 
directory 



READ CONTROL CARDS CHARTS VA AND VB 



Objective: To read librarian control cards 
from SYSRDR, and analyze the operation code 
and operands of the control cards. 

Entry: From Job Control when a // EXEC 
DSERV card is read. 

Method: Librarian control cards are read 
from SYSRDR. The operation code is ana- 
lyzed as DSPLY or it is invalid. The oper- 
ands are analyzed as: 

• ALL, display all three directories. 

• CD, display core image directory. 

• RD, display relocatable directory. 

• SD, display source statement directory. 
These operands may be in any order or in 
any combination. They may be entered on 
more than one consecutive DSPLY card. They 
may also be repeated and only one listing 
will be created. 



f DSERV J 




Display 

Source Statement 

Directory 



c 



Job Control 



D 



Figure 55. DSERV Program and I/O Flow 
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After all operands of the DSPLY card are 
analyzed, the routine reads another control 
card. If it is a /* end card, the routine 
exits to BGNDSP in the Display CD routine. 

The scan subroutines extract the opera- 
tion code and operands from the control 
card. 

• INITSHL extracts the operation code. 

• FRSTCH extracts the first operand. 

• NXTOPR extracts the remaining operands. 



ERROR MESSAGE SUBROUTINE CHART VC 



Objective: To print error messages on 
SYSLOG and SYSLST. 

Method: This routine writes the last con- 
trol card (unless /*) on SYSLST. It gets 
the address and length of the error message 
to set up the CCW. There are three types 
of messages: 

® Information messages 

« Decision messages 

® Action messages. 

If it is an information type, the mes- 
sage is printed on SYSLST and the routine 
returns to the link register address. 

If it is a decision type, the message is 
printed on SYSLST. If SYSLST and SYSLOG 
are different devices , the last control 
card read and the message are printed on 
SYSLOG. If SYSLOG is not a 1052 the job is 
canceled. If SYSLOG is assigned as a 1052, 
the user has an option to ignore the mes- 
sage or cancel the job. 

If it is an action type, the message is 
printed as for a decision type but no con- 
trol card is written on SYSLOG, 



FIND LIBRARY SUBROUTINE CHART VD 



Objective: To find the beginning of the 
relocatable or source statement library. 

Method: The logical unit is determined to 
be SYSRES, SYSRLB, or SYSSLB. The private 
tape label is checked if the library is on 
SYSRLB or SYSSLB. 



be known in case the SYSRES tape is moved 
by a fetch. 



EXECUTE CHANNEL PROGRAM SUBROUTINE 
CHARTS VE AND VF 



Objective: To reposition SYSRES, if it has 
moved, and execute the requested channel 
program. 

Method: If the entry point is EXCP, set a 
switch to wait after executing the channel 
program. If the logical unit determined by 
the Find-Library Routine is SYSRLB or 
SYSSLB, execute the channel program. 

If the logical unit is SYSRES, test to 
see if the SYSRES tape has been moved by a 
fetch. If SYSRES has moved, reposition the 
tape using the tapemark count and record 
count. Then execute the channel program. 
Wait if the switch has been set. Reset the 
switch and return to the calling routine. 

The tapemark count and record mark count 
must be updated after each execution of 
this routine. 



DISPLAY CD CHART VG 



Objectives To display the core image 
library directory on SYSLST. 

Entry: From the Read- Control- Cards routine 
when a /* card has been read. 

Method: If the CD operand has been speci- 
fied, all phase names are listed from the 
header labels in the core image library. 
IPL1 and IPL2 do not have header labels, so 
phase names for them are inserted by the 
program. Information that is printed for 
each phase is: 

1. Phase name 

2. Starting address 

3. Ending address 

*4. Entry point address 

5. Highest address used by the program 

6. Maximum record size 

7. Number of records including last record 

8. Size of the last record. 



Every time this routine is executed the 
library tape is positioned immediately 
before the first record of the library. If 
the library is on SYSRES: 

1. The number of tapemarks preceding the 
library on SYSRES is saved* 

2. The library record count is initialized 
to 0. 

The current position of SYSRES must always 



The routine returns to BGNDSP to see if 
the relocatable or source statement library 
directory has been requested. The routine 
exits to: 

• RELDIR to display the relocatable 

directory. 
® SOURCE to display source statement 

directory. 
© NDSPLY to return to Job Control. 
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DISPLAY RD CHART VH 



Objective: To display the relocatable 
library directory on SYSLST. 

Entry: Prom the Display CD routine if the 
display switch indicates display relocat- 
able library directory • 

Method: If the RD operand has been speci- 
fied, all module names and the number of 
records in each module will be listed. 
This information is taken from the from the 
header labels at the beginning of each 
module* 

The routine returns to BGNDSP in the 
Display CD routine to display the source 
statement library directory if it has been 
requested. 



DISPLAY SD CHART VJ 



Objective: To display the source statement 
library directory on SYSLST. 

Entry: From the Display CD routine if the 
display switch indicates display source 
statement library directory. 

Method: If the SD operand has been speci- 
fied, all book names will be listed. The 
sublibrary name will be printed only ait the 
beginning of a sublibrary or the beginning 
of a new page. 

The source statement directory precedes 
the sublibraries in the source statement 
library. The first record of the directory 
is a header label. The records that follow 
contain the sublibrary name, as the first 
entry, and 16 book names. The last record 
is a trailer label. 

When the source statement directory 
trailer label is read, the routine exits &t 
NDSPLY to Job Control. 



C RSERV J 



O- 




Control 
Cards 



Read Card 
Get Operand 




-/ Job Control J 




Punch 

and 

Print 




Punch 

and 

Print 



Punch 

and 

Print 



End of Module 
or, if ALL, End 
1 ) of Library 



RELOCATABLE LIBRARY SERVICE (RSERV) 



Figure 56. RSERV Program and I/O Flow 



RSERV displays on SYSLST or punches on 
SYSPCH or displays and punches modules from 
the relocatable library. RSERV is composed 
of one phase and is fetched when a // EXEC 
RSERV card is read by Job Control. 

Figure 56 shows the I/O and program flow 
Of RSERV. 



READ CONTROL CARDS CHARTS WA TO WC 



Objective: To read librarian control cards 
from SYSRDR, and analyze the operation code 
and operands of the control cards. 
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Entries: 

1. From Job Control when a // EXEC RSERV 
card is read. 

2. From the analyze library record routine 
to: 

• AINITT to read another card when 
the entire library has been ser- 
viced for an ALL operand* 

• IFDOT to check on new operand for 
.ALL 

• CPLS0P to determine if all operands 
have been processed. 

3* From the locate-module routine to ana- 
lyze a new operand when the previous 
operand module cannot be located. 



Method: After locating the beginning of 
the relocatable library, a control card is 
read from SYSRDR. The operation code is 
analyzed as PUNCH, DSPLY, or DSPCH. When a 
/* control card is read, the punch is 
closed, if it was used, and the routine 
returns to Job Control. 

The operands of the control card are 
analyzed as: 

• ALL - perform the requested service on 
the entire relocatable library. ALL 
must be the first operand. 

• (First three characters of program 
name) .ALL - perform the requested 
service on all consecutive modules with 
the same 3-character prefix. 

• (Module name) - perform the requested 
service on the individual module speci- 
fied* 

The scan subroutine GETFLD extracts the 
operation code and the operands from the 
control card. If the first operand is ALL, 
the routine sets a switch and branches 
directly to DRASFN in the Locate- Module- 
Header routine. If the first operand is 
not ALL, the operands are moved to a save 
area with an * marking the end of the 
operand list. 

At IFDOT a switch is set if the operand 
has *ALL suffix. At CPLSOP a check is made 
to determine if any operands remain to be 
processed. Exit is to CMP2 unless the 
library tape must be backspaced to the 
beginning of the library at DRASFN. 



LOCATE MODULE HEADER CHART WD 



Objective: To search the relocatable 
library for the requested module header. 

Entry: From the Analyze-Control-Cards 
routine to CMP2 or, for access to the 
beginning of the library, to DRASFN. 



Method: If the ALL operand was specified, 
the entry point is DRASFN, SYSRES or 
SYSRLB is backspaced to the beginning of 
the relocatable library. The first 
relocatable library header is read, and the 
routine branches to PRTHDR. 



For other than the ALL operand the point 
is CMP2. If an operand with a suffix of 
• ALL has been specified, only the first 3 
characters of the module name from the 
relocatable library header are compared to 
the prefix of the operand. If the .ALL 
suffix was not specified, the first 8 char- 
acters of the module name are compared to 
the ooerand. 



Modules are bypassed using the EXCP 
routine until there is an equal compare. 
If the module is not found, the operand 
pointer is updated and control returns to 
CPLSOP in the Read- Control -Card routine* 
If the module is found, control goes to 
PRTHDR in the Analyze-Library-Record rou- 
tine. 



ANALYZE LIBRARY RECORD CHART WE 



Objective: To read a record from the 
relocatable library module and to determine 
the record type. 

Entries: 

1. Initially from the Locate- Module rou- 
tine 

2. To TSTPRT from the Process ESD routine 
after punching has been completed for 
any of the record types. 

3. To PRT1 from each of the record- 
processing routines to complete 
printing for the record. 

Method: If DSPLY or DSPCH has been 
requested, the module header is printed on 
SYSLST. If PUNCH or DSPCH has been 
requested, a CATAI£ card is punched on 
SYSPCH. 

For punching, each record in the module 
is analyzed as a blocked ESD, TXT, or RLD 
record. The routine branches to the proper 
routine for handling these records. Other 
records are punched without special han- 
dling* 

For display, each record in the module 
is analyzed as a blocked ESD, TXT, or RLD 
or as a REP or SYM record* This routine 
branches to the proper routine for handling 
these records. Other records are displayed 
without special handling. 



Service Programs - Librarian 109 



When the end of the module is found, if 
the operand is not ALL or .ALL, the operand 
pointer is updated and control returns to 
IFDOT in the Read- Control -Card routine. If 
the operand is ALL, this routine is reexe- 
cuted until the end of the relocatable 
library is found? then control goes to 
AINITT to read another control card. If 
the operand has the suffix .ALL, no new 
operand is picked up; control returns to 
CPLSOP in the Read-Control-Card routine. 



From the RLD record, 48 bytes of infor- 
mation are punched into each card. When 
less than 48 bytes remain to be punched, 
the routine branches to EDCPGP in the Proc- 
ess ESD routine to punch a card with the 
remaining bytes, or to REINT1 if no bytes ^ 
remain (BBC or block byte count equal 0). 



From the RLD record, each RLD item is 
displayed on a new print line. After the 
end of the RLD block is found (BBC equals 
0) , the routine returns to the PRT1 entry 
point in the Analyze- Library-Record routine 
to display the last RLD item. 



PROCESS ESD CHART WF 



Objectives To punch or display ESD 
records. 



PROCESS TXT CHART WH 



Entries: 

1. From the Ana lyze-Library- Record routine 
to ESDPCH to punch, or to ESDPRT to 
display, the ESD record. 

2. From the RLD and TXT routines to punch 
the last card for each record. 

Methods ESD records are 162 bytes long. 
The first 2 bytes are the number of logical 
records and the length of each logical 
record within the physical record. 

From the ESD record, 48 bytes of infor- 
mation are punched into each card. The 
last card contains the remaining bytes if 
there are any (BBC or block byte count is 
greater than 0). The routine returns to 
the TSTPRT entry point in the Analyze 
Library Record. 

From the ESD record, each ESD item is 
displayed on a new print line. After the 
end of the ESD block is found, the routine 
returns to the PRT1 entry point in the 
Analyze-Library-Record routine to print the 
last ESD item. 



Objectives To punch or display TXT records 
and to display REP or SYM records. 



Entries s From the Analyze-Library-Record 

routine tos 

® TXTPCH to punch TXT 

© TXTPRT to display TXT 

© REPPRT to display a REP card 

® SYMPRT to display a SYM card. 



Method: TXT records are 162 bytes long. 
The first 2 bytes are the number of logical 
records and the length of each logical 
record within the physical record. The TXT 
record from the relocatable library con- 
tains two text statements. Each text 
statement is punched into a card or printed 
on one line. 



When punching TXT statements, this rou- 
tine punches the first and branches to 
EDCPGP in the Process ESD routine to punch 
the second. 



PROCESS RLD CHART WG 



Objectives 
records. 



To punch or display RLD 



Entrys From the Analyze-Library-Record 
routine to RLDPCH to punch, or to RLDPRT to 
display, the RID record. 

Method! RLD records are 162 bytes long. 
The first 2 bytes are the number of logical 
records and the length of each logical 
record within the physical record. 



When displaying TXT statements e this 
routine prints the first and branches to 
PRT1 in the Read-Control-Card routine to 
print the second. 



SYM and REP records contain only one 
logical record. It is displayed at PRT1 in 
the Read-Control-card routine. 
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ERROR MESSAGE SUBROUTINE CHART WJ 



Objective: To print error messages on 
SYSLOG and SYSLST. 

Methods This routine writes the last con- 
trol card on SYSLST. It gets the address 
and length of the error message to set up 
the CCW. There are three types of messa- 
ges: 

• Information messages 

• Decision messages 

• Action messages* 

If it is an information type, the mes- 
sage is printed on SYSLST and the routine 
returns to the link register address. 

If it is a decision type, the message is 
printed on SYSLST. If SYSLST and SYSLGG 
are different devicies, the last control 
card read and the message are printed on 
SYSLOG. If SYSLOG is not a 1052 the job is 
canceled. If SYSLOG is assigned as a 1052, 
the user has an option to ignore the mes- 
sage or cancel the job. 

If it is an action type, the message is 
printed as for a decision type but no con- 
trol card is written on SYSLOG. 



Method: If the entry point is EXCP, set a 
switch to wait after executing the channel 
program. If the logical unit determined by 
the Fihd-Library Routine is SYSRLB, execute 
the channel program. 

If the logical unit is SYSRES, test to 
see if the SYSRES 4: ape has been, moved by a 
fetch. If SYSRES has moved, reposition the 
tape using the tapemark count and record 
count. Then execute the channel program* 
Wait if the switch has been set. Reset the 
switch and return to the calling routine. 

The tapemark count and record mark count 
must be updated after each execution of 
this routine. 



SOURCE STATEMENT LIBRARY SERVICE (SSERV) 



SSERV displays on SYSLST or punches on 
SYSPCH or displays and punches books from 
the source statement library. SSERV is 
composed of one phase and is fetched when a 
// EXEC SSERV card is read by Job Control. 

Figure 57 shows the I/O and program flow 
of SSERV. 



FIND LIBRARY SUBROUTINE CHART WX 



INITIALIZE AND READ CONTROL CARD CHART XA 



Objective: To find the beginning of the 
relocatable library. 

Methods The logical unit is determined to 
be SYSRES or SYSRLB. The private tape 
label is checked if the library is on 
SYSRLB. 

Every time this routine is executed, the 
library tape is positioned immediately 
before the first record of the library. If 
the library is on SYSRES: 

1. The number of tapemarks preceding the 
library on SYSRES is saved. 

2. The library record count is initialized 
to 0. 

The current position of SYSRES must always 
be known in case the SYSRES tape is moved 
by a fetch. 



EXECUTE CHANNEL PROGRAM SUBROUTINE 
CHARTS WL AND WM 



Objectives To reposition SYSRES if it has 
moved, and execute the requested channel 
program. 



Objective: To read librarian control cards 
from SYSRDR and to analyze the operation 
code and operands of the control cards . 

Entries: 

1. From Job Control when a // EXEC SSERV 
card is read. 

2. From the End- of- Book routine when a new 
control card is required. 

Method: This routine determines if the 
source statement library is on SYSSLB or 
SYSRES. If the library is on SYSSLB, that 
private tape is opened. If the library is 
on SYSRES, the supervisor calls and the CCB 
are reset. 

At CALLCS a control card is read and 
evaluated to determine if the operation 
code calls for printing, punching, or both. 
If a /* card is read, SSERV is complete and 
exit is to Job Control. If the operation 
is printing, control skips to the next 
routine, the Fill-Buffer routine. 

If the operation includes punching, 
SYSPCH is opened and the operation field is 
scanned for the operand CMPRSD. This oper- 
and sets a switch to produce punched output 
in compressed form. 
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f SSERV J 




Read New 
Block 



XA 



Read Card 

Set Compressed 

Option 




Pick up Operand, 
Find Book, 
Write Header 



CLRCO 



Print/Punch 
Output For 
Library Block 



SLASHO 



Close SYSPCH, 
Line Control 
on SYSLST 



-f Job Control J 




SYSLOG 



Figure 57. SSERV Program and I/O Flow 
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OUTPUT LIBRARY RECORDS CHART XB 



Objective: To analyze an operand on the 
control card, to locate the book named, and 
to print or punch the library records. 

Entries: 

1. From the Read- Control- Card routine to 
process the first operand on a control 
card. 

2. From the End-of-Book routine when end- 
of-book is not found and another 
library record must be processed. 

3. From the End-of-Book routine to process 
subsequent operands on the control 
card. 

Method: The first operand in the control 
card is extracted by the subroutine BLNENT. 
If present, the sublibrary prefix A. or C. 
is saved, and a test for the operand ALL is 
made. If ALL, FNDBK locates the first book 
in the sublibrary and BKNDOU writes the 
header. 

If the operand is not ALL, it must be a 
bookname. FNDBK locates the book and 
BKtOOU writes the header. 

At CLRCO the output buffers are filled 
and written out until the end of the input 
record is found. Records written on SYSPCH 
may be in compressed form as they are in 
the library record, or may be expanded to 
the original card format. Records written 
on SYSLST are always expanded. 

When the end of the input record is 
encountered, control goes to the End-of- 
Book routine. 



END OF BOOK CHART XC 



Objective: To test for end-of-book and 
either to read in another record from the 
book or to complete processing for the 
book. 

Entry: From the output library record 
routine when the end of a library record 
block is encountered. 

Method: If the end of book test indicates 
more records remain to be processed in the 
book, another record is read from the 
library. Control returns to the 
Output- Library-Record routine. 

If end-of-book has been reached, the 
last line on SYSLST and the last card on 
SYSPCH are written. A BKEND statement is 
also written. Control returns to: 

» GETALL in the Output- Library- Record 
routine if the current operand is ALL 



and more books in the sublibrary remain 

to be processed. 

TSTQUA in the Output-Library-Record 

routine if more operands on the control 

card remain to be processed. 

CALLCS in the Read- Control- Card routine 

if a new control card is required. 



OUTPUT SUBROUTINES CHART XD 



Objective: To punch or display source 
statement library records. 

CPRPCH (alternate entries CPPCH1 and 
CPPCH2) punches a compressed card image on 
SYSPCH. Columns 76-80 contain a card 
sequence number. 

EXPOUT punches on SYSPCH and prints on 
SYSLST an expanded card image according to 
switch indicators for punch and display 
output. If compressed output is specified, 
this routine does not punch. 



INPUT SUBROUTINES CHART XE 



Objective: 
card. 



To read and analyze a control 



RDRDR reads a control card. If the card 
is blank, it reads another. If the card is 
/*, control goes to SLASHO to display and 
punch the end-of-f ile indicator and to call 
in Job Control with an SVC 14. 

BLNENT scans across the card for the 
first operand. 

NBLENT locates an operand after the 
first by scanning the operand field for a 
comma or a blank. A blank delimiter indi- 
cates the last operand has been located. 



FIND BOOK SUBROUTINE CHART XF 



Objective: To locate a book in the source 
statement library. 

Method: This routine determines the posi- 
tion of the source statement library file 
with respect to the desired book. The 
action taken depends on the position: 

• Read tape to desired book if in the 
desired sublibrary and not past desired 
book. 

• Forward-space the file to next tape 
mark if neither in nor beyond the 
desired sublibrary. Read tape to 
desired book. 
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Backspace the file to tape mark if 
reading in the desired sublibrary but 
past the desired book. Forward space 
over the tape mark and read to desired 
book. 

Backspace the file two tape marks, and 
forward space over the last tape mark 
if tape was past desired sublibrary. 
Read to desired book. 



made to determine if the skip requires 
starting a new page (line count equals 
zero) . 



EJECT skips to a new page on SYSLST. 
The line count is restored to the number of 
lines per page on SYSLST. 



A block count of each read is kept in 
case repositioning ever becomes necessary. 
If the source statement library is on 
SYSRES and the tape has been moved out of 
the library area by a FETCH, SYSRES must be 
repositioned back to its former position in 
the source statement library. If the tape 
was moved out of the source statement 
library area, it must be ahead of the 
library. The tape must be read forward to 
the desired book. Using the block count, 
it is repositioned to the block it was 
operating on when the FETCH occurred. 



HEADER SUBROUTINE CHART XG 



Objective: To punch and display the head- 
ing lines CATALS and BKEND. 

A CATALS header is punched on SYSPCH if 
punching is required. A CATALS header is 
displayed on SYSLST if display and punching 
are required. 

A BKEND header with the bookname is 
punched if punching is required. If com- 
pressed output is specified, a compressed 
output operand and a sequence- check operand 
are included in the header. A BKEND header 
with the bookname is displayed if display 
is required. 



SPACE CONTROL SUBROUTINES CHART XH 



ERROR MESSAGE SUBROUTINE CHART XJ 



Objective: To print error messages on 
SYS LOG and SYSLST. 

Method: This routine writes the last con- 
trol card on SYSLST. It gets the address 
and length of the error message to set up 
the CCW. There are three types of messa- 



ges: 



Information messages 
Decision messages 
Action messages. 



If it is an information type, the mes- 
sage is printed on SYSLST and the routine 
returns to the link register address. 



If it is a decision type, the message is 
printed on SYSLST. If SYSLST and SYSLOG 
are different devices, the last control 
card read and the message are printed on 
SYSLOG. If SYSLOG is not a 1052, the job 
is canceled. If SYSLOG is assigned as a 
1052, the user has an option to ignore the 
message or cancel the job. 



If it is an action type, the message is 
printed as for a decision type but no con- 
trol card is written on SYSLOG. 



Objective: To control spacing on SYSLST. 

SPACE1, SPACB2, and SPACE3 skip 1, 2, 3 
lines on SYSLST. In each case a check is 
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APPENDIX A, FLOWCHART LABELS 



SUPERVISOR 
Label Chart 



BORTN 


CB 


BSRRTN 


CB 


CALLCN 


BC,BD,BF,BG,BH 


CANCSW 


AB 


CHK1 


BH, BE 


CHNSCH 


AA 


CKCD 


BG 


CLRCCB 


AA 


CNCL 


BC 


COMPAR 


BG 


CORPUB 


AC 


CQDSPL 


AA 


CQUDSP 


AA 


CRJRTN 


CD 


CSSW1 


AB 


CSSW2 


AB 


CTLRTN 


CC 


CTROLL 


CD 


DISWHY 


AC 


DTCRTN 


CC 


DTCVRT 


CA 


EC HECK 


CA 


EOJ 


BD 


ERECEX 


CD 


ERETRY 


CB 


ERGRTN 


CC 


EXTINT 


BH 


FETCH 


BG 


FGTPUB 


AA 


FREDEV 


AC 


FROMTR 


BA 


FTC HI 


BB 


FTCH2 


BB 


FTCH3 


BB 


FWSTCL 


CD 


GETCHQ 


AC 


GETCOD 


BA 


GETS EN 


AD 


G 10 ADR 


AB 


ILSVC 


BF 


ILSVC2 


BF 


IMDCMD 


AB 


INITRG 


AC 


INTERR 


AC 


INTRTN 


CB 


IOPC 


AD 


ITEXIT 


BE 


JBOVER 


AB 


KEYRT 


BH , BE 


LCLRTY 


CB 


LDREGS 


AC 


LEXE QU 


CB 


LINTRQ 


CB 


LM2F 


BB 


LOAD 4 


BB 


LTFETC 


BG 


LTRET 


BD 


LUNASG 


AA 


MVCOM 


BB 



NCLRET 


BB,BC,BD,BE< 


rBF 


NONTRY 


AA 




NOQENT 


AD 




NOTFUL 


AD 




NOTLST 


BG 




NOTRES 


AD 




NXTDEV 


AC 




NXTPUB 


AC 




NXTQNT 


AA 




OCEXIT 


BF 




OVERTN 


CB 




PCEXIT 


BE 




PCHECK 


BH 




PTFETC 


BG 




PUNASG 


AA 




QUEERR 


AD 




RDBKWD 


BG 




RDBRTN 


CC 




RDCNT 


CC 




RDFOR 


BG 




RDRES 


BG 




RDRTN 


CC 




REGS 


BE,BF 




RESMVT 


BD 




REWND 


BG 




RSBUSY 


BE,BF 




RTNCHK 


BE,BH 




SELECT 


AC 




SETBSY 


AB 




SETCCW 


BG 




SETIME 


BC 




SKPF2 


BB 




SSELER 


CC 




STMODE 


AB 




STRTIO 


AB 




STXITC 


BF 




STXITP 


BE 




STXITT 


BE 




SVC INT 


BA 




SYSAND 


BD 




SYSOR 


BD 




TAPERR 


CA 




TCLRN 


CD 




TESTFP 


CD 




TIECRC 


CD 




TILOOP 


CD 




TOTRTN 


BC 




TOOSR 


BC 




TSTAPE 


AB 




TSTCDE 


AD 




TSTEOJ 


AB 




TSTERQ 


AB 




TSTHI 


BA 




TSTLDP 


CD 




TSTLRD 


CC 




TSTLST 


CC 




TSTNOS 


CC 




TSTNUQ 


AA 




TSTQEF 


AC 




TSTUEX 


AC 




UNCRTN 


AD 




UNTCHK 


AD 
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URET 


BC 




WAIT 


BC 




WNDTP 


BG 




XRET 


BE,BF, 


BH 


TRANSIENT ROUTINES 


Label 


Chart 




$$ANERRM 


CE 




$$ANERRN 


CF 




$$ANERRO 


CF 




$$ANERRP 


CG 




$$ANERRU 


CH 




$$ANERRV 


CJ 




$$BCHKPT 


DA 




$$BCNCL 


DB 




$$BDUMP 


DC 




$$BEOVRT 


DK 




$$BILSVC 


DE 




$$BJCOPT 


DF 




$$BMSGIN 


DG 




$$BPCHK 


DH 




$$BPDUMP 


DC 




$$BRSTRT 


DJ 




JOB CONTROL 




Label 


Chart 




ACTION 


EC 




ALTTST 


FA 




ASGEND 


£F 




ASGNLS 


FA 




ASGNLU 


EE 




ASGNPR 


EE 




ASGNSY 


EE 




ASGNS3 


EE 




ASGNS4 


EE 




ASGTYP 


EF 




ASSGN 


ED 




B INC ON 


FB 




BTLRTN 


FB 




BTOFRT 


ER 




BTONRT 


ER 




CANCEL 


EG 




CATAL 


EP 




CCLOUT 


EG 




CCLRTN 


EG 




CCPROC 


£B 




CHKLUN 


EN 




CHKNUM 


FB 




CHKTYP 


EN 




CHPR 


FB 




CHSYS 


FB 




CHSYU 


EG 




CHSYSO 


FB 




CHSYS1 


FB 




CHSYS2 


FB 




CKCVCU 


FB 




CKCVLO 


FB 




CKMT 


EG 




CLOSE 


EG 




CLRRTN 


EK 




CMNTPR 


EB 




CONCAT 


FC 




COPYLP 


EC 




COPYRT 


EC 





CRJBSQ 


EL 


DATE 


EG 


DEV 


ED 


DVCDN 


EH 


DVCDN1 


EH 


DVCDN3 


EH 


DVCDN 5 


EH 


DVCDN 6 


EH 


DVCUP 


EH 


EDTEST 


EK 


EFFASG 


EF 


ENDTST 


FA 


ENTRY 


EC 


EOFOFF 


EL 


EOJRTN 


EJ 


EXCEDT 


EK 


EXCPRG 


FC 


EXCUSR 


EK 


EXEC 


EK 


FETCHR 


EK 


GETJIB 


FC 


GETPUB 


FC 


GO 


EP 


GOCAT 


EP 


IGN 


ED 


IGNORE 


EJ 


IGNRTN 


EJ 


INCLUD 


EC 


INCPBP 


EJ 


JBCIN2 


EA 


JBINPR 


EJ 


JIBDCU 


FD 


JIBEND 


FD 


JIBLOP 


FD 


JOB 


EL 


JOBCTL 


EA 


LBLEXH 


ES 


LINK 


EP 


LINOUT 


FG 


LI3TIO 


EM 


LOG 


EN 


LOGCHK 


FD 


LOGGER 


FE 


LOGOUT 


FG 


LOGPRT 


FD 


LPRGLP 


EM 


LSTDWN 


EM 


LSTPRG 


EM 


LSTSYS 


EM 


LSTUNA 


EM 


LSYSLP 


EM 


LUALP 


EM 


MASGN 


EE 


MOVERT 


FD 


MSGOUT 


FD 


MTC 


EN 


MTCUCV 


EJ 


MTEEND 


EJ 


MTERCV 


EJ 


MTTEST 


EJ 


MTZERO 


EJ 


NANJIB 


FA 


NDSCAN 


FF 


NMTLB 


EN 


NOALT 


EF 


NOASGN 


FA 


NOCATL 


EJ 


NOIPT 


EJ 
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NOJBDC 


EF 


NOJIB 


FA 


NOJIBP 


EE 


NOLOG 


EN 


NOMORL 


ES 


NOTFSD 


EF 


NSCLGR 


FG 


NUMPBL 


FB 


NXTBIT 


ER 


NXTOPT 
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ACTGO 


JN 


ACTRTN 


JN 


ACTSCN 


JN 


ALNKCD 


JP 


ALNKPR 


JP 


ALNKSC 


JP 


ALNKVL 


JP 


ALNKVR 


JP 


ATOINC 


JK 


BLKLOP 


JJ 


CDGO 


JC 


CHKRTN 


JF 


CHKRT1 


JF 


CNTCHK 


JA 


CTLCHK 


JH 


CTLFCH 


JD 


CTLGO 


JH 


CTLRTN 


JH 


ENDRPS 


JF 


ENDSCN 


JJ 


EOFCHK 


JE 


ERROUE 


JL 


ERR15E 


JL 


ERR31E 


JM 


ERR33E 


JL 


ERR35E 


JM 


ERR36E 


JN 


ERR37E 


JN 


ERR4 4 


JS 


ESDCHK 


JM 


FDSRTN 


JJ 


FINCK 


JG 


FNDLOP 


JK 
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JF 


GETCD 


JC 


GETGO 


JC 


GETRCD 


JE 


GETYES 


JC 


INCRTN 


JK 
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JB 
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JB 
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JB 


INTCRE 


JB 


INTFIL 


JA 


INTIO 


JN 


INTOPN 


JA 


IORTN 


JR 
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JR 


IPTSWT 


JQ 


LABCK1 


JG 


LABCK2 


JG 


LIBERR 


JM 


LIBEST 


JM 


LIBRTN 


JM 


LODORG 


JD 
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JA 


LSETB 


JS 
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JA 
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JS 
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JS 
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BOFCOM 


SG 


CALLRL 


SM 


CALLSL 


SN 


CANCEL 


SE 


CLBRCH 


SP 


CLRRCT 


SJ 


COPOPR 


SC 


CPYASL 


SK 


CPYECL 


SL 


CPYERL 


SN 


CPYRL 


SK 
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SF 
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SB 


EMAINS 


SA 
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SA 
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SN 
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SN 
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SA 
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SG 
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SP 
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SB 
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SD 
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SB 
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SG 
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SG 
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TA 


AINIT4 


TA 


CATAL 


TB 
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TB 


CATEN 


TB 


CATHP 


TB 


CATTP 


TB 


DELET 


TC 


DELTCM 


TC 


DELTCP 


TC 


DELTSK 


TC 


DEPAIi 


TC 


DEPCMP 


TC 


DEPCPY 


TC 


DEPSKP 


TC 


NOPRG 


TC 


OOTSEQ 


TB 


RCAT 


TB 


RCATA 


TB 


RCATAL 


TB 


RCEAP 


TB 


RCEICD 


TB 


RCEND 


TB 


RCESD 


TD 


RCESDC 


TD 


RCESDR 


TD 


RCESDO 


TD 


RCESMC 


TD 


RCESWR 


TD 


RCOCRD 


TB 


RCOPY 


TG 


RCOPYL 


TG 


RCOPYT 


TG 


RCOPYX 


TG 


RCPS2 


TF 


RCPS2R 


TF 


RCRLD 


TE 


RCRLDB 


TE 


RCRLDC 


TE 


RCRLDE 


TE 


RCRLDL 


TE 


RCRLDM 


TE 


RCRLDN 


TE 


RCRLDR 


TE 


RCRLDU 


TE 


RCTXT 


TF 


RCTXTB 


TF 


RCTXTC 


TF 
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TF 
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TF 
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TF 
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ADSW 


UH 
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UF 




BKNDCK 


UF 




BKNDPR 


TJG 




BKNMT 


OE 




BKOT1 
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BKSW 
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OC 




BK2TST 


UH 




BNDERR 
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UJ 




CATALS 


UA 




CATT2 


UJ 
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UH 
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UJ 




CDCTPR 


UG 
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UF 




CDVSW 
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UE 
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DELETS 
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UB 
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DELSW 
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UE 




INCCON 


UE 
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WF 


EDPCSI 


WF 


ENDRTN 


WA 


ENDRT1 


WA 


EOMTST 


WE 


ERRRTN 


WJ 


ESDPCH 


WF 


ESDPIA 


WF 


ESDPRT 


WF 


ESDPTL 


WF 


EXCP 


WL 


EXCP1 


WL 


EXTK3 


WE 


EXTRCT 


WB 


EXTRT1 


WB 


FNDL2 


WK 


FSFRTN 


WM 


FSPRTN 


WM 


GETFIA 


wc 


GETFIL 


wc 


GETFLD 


wc 


GETFR1 


wc 


GETFR2 


wc 


GETFSC 


wc 


GETFSI 


wc 


GETFSN 


wc 


GETFSR 


wc 


GETFTS 


wc 


GETFWM 


wc 


IFDOT 


WB 


ILCCRD 


WA 


ILOPRD 


WB 


IMSG 


WJ 


INIFND 


WK 


IOREW 


WK 


LB POST 


WM 


LGCARD 


WJ 


MODIF 


WJ 


MOVEFD 


WB 


NOFNDL 


WK 


NOLIB 


WA 


NOP1 


WJ 


NOP2 


WJ 



OPNTST 


WK 


PCHSWT 


WA 


PPSWT 


WA 


PRTHCM 


WE 


PRTHDR-4 


WD 


PRTHDR 


WE 


PRTHGS 


WE 


PRTHUD 


WE 


PRTHUT 


WE 


PRTNME 


WD 


PRTSWT 


WA 


PRT1 


WE 


RCOVER 


WM 


RDAFM 


WK 


RDPCAI 


WG 


RDPCBB 


WG 


RDPCCT 


WG 


RDPCS8 


WG 


RDPCTS 


WG 


RDRD2 


WE 


REINT1 


WF 


REPPL 


WH 


REPPRT 


WH 


RETLST 


WJ 


REWBCK 


WM 


RLDPBP 


WG 


RLDPCH 


WG 


RLDPCO 


WG 


RLDPDR 


WG 


RLDPHE 


WG 


RLDPRR 


WG 


RLDPRT 


WG 


RLDPSW 


WG 


RLDPUD 


WG 


RLDPXA 


WG 


RSTPOS 


WM 


SKIPIT 


WJ 


SKIPTO 


WK 


START 


WA 


TSTDAL 


WD 


TSTEOV 


WK 


TSTMV 


WL 


TSTPCH 


WE 


TSTPRT 


WE 


TXPCIM 


WH 


TXPCSC 


WH 


TXTPCH 


WH 


TXTPIA 


WH 


TXTPRT 


WH 


TXTPSA 


WH 


TXTTST 


WJ 


WTSW 


WL 


SSERV 


- Sour< 


Label 


Chart 


ALLSW 


XC 


ALLTST 


XB 


ANSWER 


XJ 


BKENDO 


XC 


BKNDOU 


XG 


BKNDOl 


XG 


BLNENT 


XE 


CALLCS 


XA 


CDTST 


XG 


CHNGSB 


XB 


CLRCO 


XB 


CMPRST 


XC 



Source Statement Library Service 
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CPPCH1 


XD 


CPPCH2 


XD 


CPRPCH 


XD 


CPRSCN 


XA 


CPRSW 


XB 


CSERRl 


XA 


CSERR2 


XE 


CSERR3 


XB 


DMSG 


XJ 


EJECT 


XH 


EOBK 


XC 


EOBKT 


xc 


EOSYST 


XF 


ERRRTN 


XJ 


EXP 


XB 


EXPCD 


XB 


EXPOUT 


XD 


EXPTIN 


XB 


FNDBK 


XF 


F WD INI 


XF 


GETALL 


XB 


GETBK1 


XB 


GETOUT 


XE 


GOTOSB 


XF 


IMSG 


XJ 


INIT1 


XA 


LCNTST 


XH 


LGCARD 


XJ 


LINCT1 


XH 


MODIF 


XJ 


MVBKF 


XF 


MVBKN 


XB 


MVBKN1 


XB 



NBLENT 


XE 


NOP1 


XJ 


NOP2 


XJ 


PCHEM 


XD 


PCHESW 


XD 


PRTNF 


XF 


PRTTST 


XD 


RDINI 


XF 


RDRDR 


XE 


RESCN 


XA 


RES1 


XA 


RETLST 


XJ 


REWLIB 


XA 


RSTPRT 


XD 


SBLTST 


XF 


SCNNBL 


XE 


SETBIT 


XF 


SETOP 


XF 


SKIPBO 


XC 


SK1PIT 


XJ 


SLASHO 


XE 


SLASHX 


XE 


SLASOl 


XE 


SPACE1 


XH 


SPACE2 


XH 


SPACE3 


XH 


SVCLIB 


XF 


TPPOST 


XF 


TSTCM1 


XG 


TSTQUA 


XB 


TXTTST 


XJ 


WAITF 


XF 


WRGLTP 


XA 
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APPENDIX B. 



FLOWCHART ABBREVIATIONS 



A/O 


Assembled Origin 


ADCON 


Address Constant 


ADDR 


Address 


ALT 


Alternate 


ASGN 


Assign 


ASGNMT 


Assignment 


ASSM 


Assembled 


BBC 


Block Byte Count 


BKSP 


Backspace 


BLK 


Block 


C/D 


Control Dictionary 


CCB 


Channel Command Block 


ccw 


Channel Command Word 


CHAN 


Channel 


CHANQ 


Channel Queue 


CHAR 


Character 


CHKPT 


Checkpoint 


CL 


Core Image Library 


CM 


Common 


CMD 


Command 


CNT 


Count 


CNTL 


Control 


COMM 


Communications 


COMREG 


Communications Region 


CSW 


Channel Status Word 


CURR 


Current 


CUD 


Channel and Unit Address 


DEV 


Device 


DIR 


Directory 


EOF 


End of File 


EOS 


End of Supervisor 


ER 


External Reference 


ESD 


External Symbol Dictionary 


ESID 


ESD Identification 


EXCP 


Execute Channel Program 


FAVP 


First Available JIB Pointer 


FLD 


Field 


FOCL 


First on Channel List 


FWD 


Forwa rd 


FWSP 


Forward Space 


HDR 


Header 


HEX 


Hexadecimal 


I/O 


Input/Output 


ID 


Identification 


IGN 


Ignore 


INFO 


Information 



JIB 



Job Information Block 



L/E 


Linkage Editor 


LD 


Label Definition 


LIB 


Library 


LR 


Label Reference 


LUB 


Logical Unit Block 


MAX 


Maximum 


MIN 


Minimum 


MOD 


Module 


MPX 


Multiplex 


MSG 


Message 


NUM 


Number 


OP 


Operator, Operation 


OPND 


Operand 


PC 


Private Code 


PIOCS 


Physical IOCS 


POS 


Position 


PROB 


Problem 


PROG 


Program, Programmer 


PSW 


Program Status Word 


PTR 


Pointer 


PUB 


Physical Unit Block 


R/F 


Relocation Factor 


R/O 


Relocated Origin 


REC 


Record 


REG 


Register 


REP 


Replace 


RL 


Relocatable Library 


RID 


Relocation Dictionary 


RSTRT 


Restart 


SD 


Section Definition 


SIO 


Start I/O 


SL 


Source Statement Library 


SPEC 


Specification 


STD 


Standard 


STMNT 


Statement 


SVC 


Supervisor Call 


SYS 


System 


sw 


Switch 


TCH 


Test Channel 


TEB 


Tape Error Block 


TEMP 


Temporary 


TM 


Tapemark 


TXT 


Text 


UA 


Unassign 


VOL 


Volume 


WTM 


Write Tapemark 
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APPENDIX C« FLOWCHART SYMBOLS 



QN-PAGE 
CONNECTOR- 
INDICATES 
ENTRY FROM 
BLOCK G2. 



»«»B2*»*»*«*« 

CARD SEARCH 



OFF-PAGE CONNECTOR 
INDICATES MULTIPLE 
ENTRIES FROM 
CHART ZZ, 



ROM 
AND K5. 

» 
* ZZ-K4,K5 


.* TEST «. ON 
». FIRST-TIME ...... 

*. SWITCH .* 

*»*OFF I 




X I 
*»»*««D2*****e***«* . 




* WRITE * 
HEADER 




xlx 1 




READ X 

»«««»E2*«»« ***«#» 
•SUBRTN YY» 



THE LABEL ABOVE 
THE BLOCK IS THE 
SAME AS THE LABEL 
IN THE PROGRAM 
FOR THE FUNCTION 
IN THE BLOCK. 



TURN ON 

FIRST-TIME 

SWITCH 



INITIAL BLOCK- 
NOTATION IN BLOCK 
NAMES PROGRAM 
OR SUBROUTINE. 



DECISION BLOCK- 
NOTATION IN BLOCK DESCRIBES A 
PROGRAM TEST. NOTATION ON 
FLOW LINES LEAVING BLOCK INDICATES 
POSSIBLE RESULTS OF THE TEST. 



I/O BLOCK- 
NOTATION IN 
BLOCK DESCRIBES 
I/O FUNCTION. 



STRIPED PROCESS BLOCK- 
NOTATION IN BLOCK OESCRIBES PROGRAM 
FUNCTION. SUBROUTINE NAME AND CHART 
IDENTIFICATION ABOVE THE LINE INDICATE 
FUNCTION IS CHARTED IN DETAIL AT 
SUBRTN ON CHART YY. 



MODIFICATION BLOCK- 
NOTATION IN BLOCK 
DESCRIBES A MODIFICATION 
OF PROGRAM FLOW. 



ON-PAGE 
CONNECTOR- 
INDICATES 
BRANCH TO 
BLOCK C2. 



COMPARE 
COUNT TO 
. LIMIT 



»*»«G5 »•»»»«»»* 
SUBRTN 



OFF-PAGE CONNECTOR INDICATES 
BRANCH TO CHART ZZ, BLOCK Alt 
WHICH HAS THE LABEL ERROR. 



STRIPED I/O BLOCK- 
NOTATION IN BLOCK DESCRIBES 
I/O FUNCTION CHARTED IN 
DETAIL AT READ, ON CHART ZZ. 



PROCESS BLOCK- 
NOTATION IN BLOCK DESCRIBES 
PROGRAM FUNCTION. 



B*»B»*»«»* 



TERMINAL BLOCK- 
NOTATION IN BLOCK INDICATES 
ACTION TAKEN OR NEXT PROGRAM 
AFTER COMPLETION OF THIS 
PROGRAM. 



>«««»«««»«««> 



Appendix C* 
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APPENDIX D. PHYSICAL IOCS FIELDS 



To perform PIOCS, the user builds a Channel 
Command Word (CCW) or chain of CCW's defin- 
ing the channel program, and issues the 
macros CCB and EXCP (and possibly WAIT). 

The CCW provides the I/O command and the 
data address. The CCW has the following 
format : 

Bits 0-7: command code 

Bits 8-31: data address 

Bits 32-36: flags 

Bits 37-39: zeros 

Bits 40-47: unused 

Bits 48-63: count 



The CCB macro generates a 16-byte field 
called the Command Control Block (CCB) in 
which the problem program specifies to the 
PIOCS routines: 

• the CCW address 

• the symbolic unit address 

• user options. 



PIOCS routines use the CCB to return 
information to the problem program and to 
save bits from the Channel Status Word 
(CSW) status bytes when the I/O is complet- 
ed. The CCB has the following format. 





Count 


Transmission 




CSWH 








Symbolic Unit 


Not Used 


CCW Address 


Reserved for 


CCW Address 






Information 


Status Bytes 








Address 


Must Contain X'00 1 




Physical IOCS 


inCSW 




1 


2 3 


4 


5 








6 7 


8 


9 11 


12 


14 15 




Used For - 


Residual Count 


Transmitting 








Hexadecimal 


Not Used 


Address of CCW 


Must Contain X'00' 


Address of C C W 






Information 






~~ ~ ^ 




Representation of 




Associated with 




in the C S W 






between Physical 










SYSnnn 




this CCB 




stored at 






IOCS and Problem 
Program 




Byte 4 




Byte 5 " " - - 


SYSRDR = 0000 
SYSIPT =0001 
SYSPCH =0002 
SYSLST = 0003 








Channel End. 
It is 8 Greater 
than last CCW. 




BIT 


DESIGNATION 


BIT 


DESIGNATION 








32 
33 
34 
35 
36 
37 


Attention 
Status modifier 
Control unit end 
Busy 

Channel end 
Device end 


40 

41 
42 
43 
44 


Program - control led 
interruption 
Incorrect length 
Program check 
Protection check 
Channel data check 


SYSLOG =0004 
SYSRES = 0006 
SYSSLB = 0007 
SYSRLB = 0008 
SYSOOO =0100 
SYSOOl =0101 
















38 


Unit check 


45 


Channel control check 


















39 


Unit exception 


46 


Interface control check 
























47 


Chaining check 













Byte 2 



Traffic Bit 
(Wait) 



Unrecoverable 
I/O Error 



Acceptable 
Unrecoverable 
I/O Error 



Post at Device End 



Accept tape read 
data check or 2540 
punch equipment 
check. 



User Error Routine 



Set On By—*-| PIOCS 



Byte 3 



2540 Punch 
Equipment or 
Tape Read Error 



Questionable 
Condition 



Carriage 
Channel 9 



Set On By — »n 



PIOCS = Physical IOCS 
Pr. Pr. = Problem Program 

H Bytes 4 and 5 contain the status bytes of the Channel Status Word ( Bits 32-47) . 

If byte 2, bit 5 is on and device end results as q separate interrupt, device end status will OR'd i 

* Indicates /* or /& statement encountered on SYSRDR or SYSIPT. 
Byte A, bit X'01 ' ( unit exception) is also on . 
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The EXCP macro puts a CCB address in 
register 1 and issues a supervisor call of 
0. The WAIT macro tests the traffic bit in 
the CCB and, if it is not on, issues a 
supervisor call of 7; control returns to 
the user when the traffic bit is tested and 
found on. 

PIOCS routines are entered through an 
I/O interrupt or a supervisor call of 0. 
The old and new Program Status Words 
(PSW's) hold the information necessary to 
process the interrupts. The PSW has the 
following format: 

Bits 0-7 j system mask 

Bits 8-11: protection key 

Bits 12-15: AMWP mask 

Bits 16-31: interruption code 

Bits 32-33: instruction length code 

Bits 34-35: condition code 

Bits 36-3 9: program mask 

Bits 40-63: instruction address 

When a request for I/O can be processed, 
the Actual I/O routine places the CCW 
address from the CCB into the CSW and the 
Channel Address Word (CAW) in location 72. 
The CAW has the following format: 

Bits 0-3: key 

Bits 4-7: zeros 

Bits 8-31: CCW address 

The actual I/O routine issues I/O 
instructions (e.g., SIO) directed to a 
device specified by a channel address and 
device address. The addresses are taken 
from the PUB assigned to the symbolic unit 
addressed by the CCB. 



The actual I/O routine tests the condi- 
tion codes for each I/O instruction. These 
condition codes are defined as follows. 



Condition code: "Start I/O 
0: I/O operation initiated 
1: CSW stoired 
2: Channel busy 
3: Not operational 

Condition code: Test I/O 
0: Available 
1: CSW stored 
2: Channel busy 
3: Not operational 

Condition code: Test Channel 
0: Channel available 
1: Interruption pending 
2: Operating in burst mode 
3: Not operational 

Condition code: Halt I/O 
0: Channel not working 
1: CSW stored 

2: Burst operation terminated 
3: Not operational 

The CSW in location 64 is tested to 
determine the results of the I/O operation. 
The CSW has the following format. 

Bits 0-3: key 

Bits 4-7: zeros 

Bits 8-31: CCW address 

Bits 32-47: status bytes 

Bits 48-63: count 
Bits 8-31 of the CSW are saved in the CCB. 
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APPENDIX E. FORMAT OF LANGUAGE TRANSLATOR OUTPUT CARDS AND THE USER REPLACE CARD 



r — 

I 



FORMAT OF THE ESD CARD 



h f 



t 

11- 

J. 

15- 



Multiple punch (12-2-9). Identi- 
fies this as a loader card. 



I I 



2- a 



12 

16 



Number of bytes of information 
contained in this card. 
+ 



h 



17-72 



73- 



ESD — External Symbol Dictionary 
card. 



External symbol identification 
number (ESID) of the first SD, PC, 
CM, or ER on this card. Relates 
the SD, PC, CM, or ER to a particu- 
lar control section. 



Variable information. 

8 positions - Name 

1 position - Type code to indi- 
cate SD, PC, LD, CM, or ER 

3 positions - Assembled origin 

1 position - Blank 

3 positions - Length, if an SD- 
type, CM-type, or a PC- type. 
If an LD-type, this field 
contains the external symbol 
identification number (ESID) of 
the SD containing the label. 



H 






H 



80 | May be used by the programmer for 
identification. 



J- 



2-4 



6-8 

j. 

11-12 

j. 

15-16 



-+ 






17-72 



h 



73-80 
i 



FORMAT OF THE TXT CARD 

Multiple punch (12-2-9). Identi- 
fies this as a loader card. 



TXT — Text card. 



Assembled origin (address of first 
byte to be loaded from this card). 



-H 



Number of bytes of text to be load- 
ed. 



H 



External symbol identification 
number (ESID) of the control sec 
tion (SD or PC) containing the 
text. 

Up to 56 bytes of text — data or 
instructions to be loaded. 



+• 



H 



May be used for program identifi- 
cation. 



FORMAT OF THE RLD CARD 



1 



Multiple punch (12-2-9) . Identi- 
fies this as a loader card. 

RLD — Relocation Dictionary card 



2-4 

I- 

11-12 

v + 

17-72 



h 



73-80 



Number of bytes of information 
contained in the card. 



H 



Variable information (multiple 
items). 

1. Two positions - R-pointer 
(relocation identifier) to the 
relocation factor of the con- 
tents of the load constant. 

2. Two positions - P-pointer 
(position identifier) to the 
relocation factor of the con- 
trol sections in which the load 
constant occurs. 

3. One position - flag indicating 
type of constant. 

4. Three positions - assembled 
origin of load constant. 



H 



H 



May be used for program identifi 
cation. 



r 1 

j FORMAT OF THE END CARD | 

^ T ^ 

1 | Multiple punch (12-2-9). Identi- 
fies this as a loader card. 



h 

2 
j. 

6 



I- 

15- 



-4| 

— + 

-8| 

I 
I 

— + 

16 



H 



j. 

17 



— + 
22 



END 

Assembled origin of the label sup- 
plied to the Assembler in the END 
card (optional) . 

ESID number of the control section 
to which this END card refers (only 
if 6-8 present). 



I 

29- 

\ 

|73- 

L 



Symbolic label supplied to the 
(Assembler if this label was not 
j defined within the assembly. 



-H 



32 



1 



Control section length (if not 
specified in last SD or PC) . 

80 | Not used. | 
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FORMAT OF THE REP CARD 



H' 



Multiple punch (12-2-9). Identi- 
fies this as a loader card. 

REP — Replace Text card. 



y 

2-4 
5-6 



Blank 



h + 

7-12 



I 

13 

I 

114-16 



I + 

117-70 



Assembled address of the first byte 
to be replaced (hexadecimal) • Must 
be right justified with leading 
zeros if needed to fill the field* 



Blank 



External symbol identification 
number (ESID) of the control sec- 
tion (SD) containing the text 
(hexadecimal). Must be right jus- 
tified with leading zeros if needed 
to fill the field. 

.J 

From 1 to 11 four-digit hexadecimal 
fields separated by commas, each 
replacing two bytes. A blank indi- 
cates the end of information in 
this card. 



j. f 

|71-72 

I- + 

173-80 



- H 



Blank 



May be used for program identifi- 
cation. 
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PICK UP NEXT 

POINTER FROM 

CHAIN FIELD 



CHNSCH X 

••••*B 1 *****•••»* 
» SAVE SVC OLD * 
» PSW IN I/O » 

* OLD PSW. « 

* SAVE REGS 1-7 * 



COMPUTE 

CHANQ TABLE 

DISPLACEMENT 

FROM POINTER 



CHANQ 
TABLE 
FULL 



INITIALIZE TO 

RE-EXECUTE 

SVC 



LAST 

ENTRY IN 
. QUEUE 



RESET CCB 
PIOCS OPTION 
BITS TO ZERO 



**»»D2« ******* 

• RETURN TO 

• INTERRUPTED 

• PROGRAM 



»****04** ******** 

* PUT FREE * 

* LIST POINTER * 

* -FLPTR- * 
•IN CHAIN FIELD * 



.* LUB ». NO 
•.CLASS VALID, .•-.. 
». UNIT IN .* 
•.TABLE.* 

***YES 



LUNASG 

* 3953 TO * 

...X* CANCEL CODE * 

* * x 

••*•••••••••••••* *AB * 

• E4* 



CQDSPL X 

•****E 4** ******** 

* COMPUTE * 

* CHANQ TABLE * 

* DISPLACEMENT * 

* OF NEW ENTRY * 



•****F1** **»»»» 

• COMPUTE LUB 

• POINTER AND 

• LUB TABLE 

• DISPLACEMENT 



•••••F4******** 

* UPDATE FLPTR 

* FROM CHAIN 

* FIELD OF 

* NEW ENTRY 



.• IS A ». 

.DEVICE ASGNED. 
». TO LUB .* 



•••»*G4* ******* 

* INSERT NULL 
•CHANQ POINTER, 

* CCB ADDRESS, 

* LUB POINTER 



COMPUTE 

PUB TABLE 

DISPLACEMENT 



»***»H2*»* »*»**** 

* TURN ON BITS * 

* 16, 36, 37 IN * 
•CCB TO INDICATE* 

* I/O COMPLETE * 



LUB 
IS FOR 
SYSRES 



»****H5 ********** 

* SET SYSRES- * 
X* MOVED BIT * 

• ON IN JBCSWO • 



.* PUB •- 

.CONTAINS NULL. 
•.CHANQ PTR.* 



»*«J2* ******* 

RETURN TO 

INTERRUPTED 

PROGRAM 



*.NOT BUSY .* 



X 

*•••• 

• AB • 

* Al« 



•***K 1*» •»»»•»»* 

PUT FREE • 

LIST POINTER • 

-FLPTR- • 

IN PUB * 



****K4********* 

* RETURN TO * 

* INTERRUPTED * 

* PROGRAM * 



• 2 • 

• • 
••*• 



Chart AA. Channel Scheduler 



Charts 
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*»»B1»«**»»» 

TCH 

ON CHANNEL 

SPECIFIED 

BY PUB 



••••B5 ••••••••• 

» RETURN TO • 
• INTERRUPTED • 
» PROGRAM • 



CI NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 

.* ». • CHECK BOTH • 

CHANNEL *. NO * CHANNELS • 

AVAILABLE .*.... * IF DEVICE « 

.» . • SHITCHABLE » 



ALSO ENTERED 
FROM FETCH 
SUBROUTINE 
CHART BG 



ANY 
ERRORS IN 
. QUEUE . 



•••••C5 •••••••• 

• AT QUISIO 
X* COMPLETE 

• PENDING I/O. 



• 1 • 

• • 
• »•• 



• ••• . 
TSTEOJ .X. 
Dl 



• DEVICE AT • 
END OF FILE 

• . -/£- .* 



••••05 ••••••••• 

• FETCH TYPE-A • 

• TRANSIENT « 



MESSAGE WRITER 
OR DEVICE 
ERROR ROUTINE 



El • - 

.•DEVICE ». 
.IS BURST/MPX 
.IN OPERATION 



CANCSH 

E4 ». 
.» DID •. 

.» PIOCS SET • . 
». CANCEL CODE . 



•»»«E5 »••••••»• 

* FETCH CANCEL » 
.X» TYPE-B • 

* TRANSIENT • 



STMODE 

•••••F2»*»******* 
» PRECEDE CCB • 
• CCW WITH • 
...X» SET-MODE CCW • 
•USING PUB MODE • 



TSTERQ 
CALLED BY 
. FETCH . 



••••F5 ••••••••• 

•RETURN TO FETCH* 

.X» SUBROUTINE • 

• CHART BG • 



SIO 

ACCORDING 

TO CCB 



••»»G4*»»»«»»»« 

• RETURN TO • 

• INTERRUPTED • 

• PROGRAM • 



SETBSY X 

•••••J 1»» •»•»»•» 

• SET DEVICE 

• BUSY IN PUB. 
•NOTE IF DEVICE 

• IS BURST/MPX 



•••• 

• • 

• 1 • 

• • 

• •»• 



••••J 3»« •••••» 

ENTER WAIT 



• STATUS 

BITS ON IN 
*. CCW 





...J5. *...»• 




• 




• 


• 


SAVE REG 2 


• 


X* 


IN I/O PSW 


• 


• 




• 


• 




• 



X 

• 1 



SEE UNIT CHECK 
ERROR EXIT 
ROUTINE IONOP 



••••• 
•AC • 
• C2» 



Chart AB. Actual I/O 
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••••Al*ft •••»»•• 
• I/O INTERRUPT • 



INTERR X 

•••••Bl«« «»»«»•»* 

• SAVE REGS 1-7 * 

• TURN OFF WAIT • 

• IN I/O OLO • 

• PSW * 



*AB * 
• J5» 



GETCHQ X 

•••••B 4* •••*•••• 

• AT CQDSPt 

« LOCATE CHANQ 

• ENTRY. CCB 
» ADDR TO REG 1 



.• SAME •- YES • RESTORE REGS 

.DEVICE AS FOR.* X* 2, 3 

•.LAST SIO .• * 



DISWHY 

TSTUEX X 

•••••C4*»»««*»*«*NNNNNNNNNNNNNNNNNNNNNNNNNN 

» TEST CSW ♦ • NORMAL RETURN • 

• STATUS * • IS TO • 

• SEE FIGURE 17 * • RE-SCHEDULE « 

• * # CHANNEL AT • 

• • » SELECT/ INITRG • 



A I £KUKtbi 

ZERO REG 2i 
SET REG 3 
FROM FOCL 



X 

••••El******** 

SET REG 2 

TO DEVICE 

ADDRESS FROM 

I/O OLD PSW 



•»»* 

* • 

* 3 » 

* • 

CORPUB .X 
Fl 



AT ZROREG, 

ZERO REG 2, 

SET REG 3 

FROM FOCL 



« NEXT * 

PUB ON SAME 
• . CHANNEL .» 



• AB * 

* B4* 

• • 



• PUB FOR • 

INTERRUPTED 
». DEVICE .• 



FREDEV .!.. 

F4 *. 
.» ANY ». 
.I/O ON QUEUE 
». FOR THIS 
• . DEVICE .« 



.» PUB FOR •. 


NO 


•.SAME CHANNEL . 


• ... . 


». .• 




». .» 




*. •» 


X 


• YES 


• ••• 








• 2 


X 




»••• 


• ••• 


• • 




• 3 • 




• » 




• •»• 





* DEVICE 

BUSY OR IN 
». ERROR . 



••••H4»»***«*» 

AT CQDSP, 

LOCATE CHANQ 

ENTRY. PUT 

CCB ADDRESS 

IN REG 1 



• •••• 
•AB • 

• Al» 



Chart AC. I/O Interrupt 
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* UNIT CHECK 



UNTCHK 

• •• 
e 

» 


X 

i»B2***«****» 

SET FLAG 
FOR RETRY 


YES 




IF 
DEV 
OFF 
IN 


C3*>»«»*>« 
BURST/MPX 
ICE, TURN 

BURST/MPX 
OPERATION 




QUEERR .X. 

B4 • . 

.«** ERROR *"• 
• . QUEUE 

«. FULL .* 

*»*NO 

NOTFUL X 

»««»«C4»»»*»«**4 

« UPDATE ERROR 
•QUEUE POINTER. 
•FLAG PUB ENTRY 
•C/S FLAG BIT 3 


YES 


NOQENT 


••B5 »••*•••• 

39A3 TO 
CANCEL CODE 


•: 


• 


I 




* 


. • 


C2* 

*CHA 

E 


<. 

WEL 
YD 


• : 


, 


X 
*«C5*«»*«««* 

CONTINUE 
EXIT 




• 




* 


• 











CHANNEL 

OR DEVICE 

END 



»»»»»E2*»»»««»* 

• SET FLAG 

• FOR IGNORE 

• RATHER THAN 

• RETRY 



•IN ERROR QUEUE 

* SET CSW, PUB 
♦ADDRESS, ERROR 

* FLAG. ZERO 

* SENSE BITS 



.» PROGRAM *. YES 
•.OR PROTECTION.*.... 
*. CHECK .* 



SET MESSAGE 

NUMBER 

FOR TYPE OF 

ERROR 



• 2 • 

•••• 



F2 ». 

.•DEVICE • 
.» END 

POSTING 
*. DESIRED 



•*»>«*F4»«»«**»**** 

OBTAIN 


X 
••»»F5***»»**»* 


• SENSE » 


• PROGRAM CHECK 


INFORMATION 


• EXIT 


• USING • 




ERRSIO 





• USER HAS 

UNIT CHECK 
•. ROUTINE . 



G4 • 
TAPE 



»»**G5****« 
TAPERR 



• TURN ON CCB 
•BIT 18 TO SHOW 
•DISASTER ERROR 



.* CHANNEL *. YES 
.9 OVERFLOW ON.*.... 
•. PRINTER .* 



• IF DEVICE END * 
•POSTING DESIRED* 

X» SET CCB * 

• BIT 22 * 



»»»»J2«*»»*» 

• CONTINUE 

• EXIT 



RESCHEDULE 
I/O EXIT 



SEE UNIT CHECK 
ERROR EXIT 
ROUTINES 



Chart AD. 
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SVC 
INTERRUPT 



.» SVC *. 






« EXECUTE « 


. YES 


CHANNEL .* 




». PROGRAM .« 






*. .* 










X 


* NO 




• AA • 

* Bl* 


««*C2*»»»**«« 


»• 




SAVE REGS 8-1 


• 





NO .* SVC 

...». IN PROBLEM 
*. STATE . 



. » PROBLEM *. NO 
.PROGRAM GAVE .»... 
*. SVC .• 



SAVE 

PROBLEM 

PROGRAM REGS 

0-15 



FROMTR 

•••••F 3* »*»**» 

* SET TYPE-B 

* TRANSIENT 

* INDICATOR 



***H2* 
GET THE SVC 

CODE FROM 
THE OLD SVC 
PSW BYTE 34 



. ROUTINE 
. LABEL 


I SVC 


I 


TABLE '. 


. FTCH1 


. 1 


• 


SVC1 . 


. FTCH2 


. 2 


• 


SVC2 . 


. FTCH3 


. 3 


• 


SVC3 . 


. LOAD* 


. 4 


• 


SVC4 . 


. MVCOM 


. 5 


- 


SVC5 . 


. CNCL 


. 6 


• 


SVC6 . 


. WAIT 


. 7 


- 


SVC7 . 


. TOUSR 


. 8 


• 


SVC8 . 


. TOTRN 


. 9 


• 


SVC9 . 


. SETIME 


.10 


* 


SVC10. 


. LTRET 


.11 


• 


SVC11. 


. SYSAND 


.12 


• 


SVC12. 


. SYSOR 


.13 


• 


SVC13. 


. EOJ 


.14 


- 


SVC14. 


. RESMVT 


.15 


• 


SVC15. 


. STXITP 


.16 


• 


SVC16. 


. PCEXIT 


.17 


• 


SVC17. 


. STXITT 


.18 


• 


SVC18. 


. ITEXIT 


.19 


• 


SVC19. 


. STXITC 


.20 


• 


SVC20. 


. OCEXIT 


.21 


• 


SVC21. 



« DETERMINE 
•LABEL FOR SVC. 
« SEE TABLE 



Chart BA. Supervisor Call Interrupt 
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*«»*Al***** 
* SVC 1 



FTCH1 

•****B1*< 
•FETCH 

» fetch' PHASE 
» TO BE LOADED 



—•—»—» 



••••B2*******»* 

• • 

• SVC 2 « 



•*»*C1 •*••**•••• 

DETERMINE * 

ENTRY TO * 

PHASE LOADED • 



C2 •. 

.•REQUEST*. 

FROM 

TRANSIENT 



SVC 3 



Dl ». 




D2 •. 




D3 «. 




.* ». 




.• IS •* 




.* WAS *. 




.* LEGAL • 


NO 


.• THERE AN *. 'ES 


.» SVC IN •. NO 


•.ENTRY ADDRESS 




•. ACTIVE .». 




«. SUPERVISOR .* 




*• .» 




•.TRANSIENT.* 




». STATE .• 




». .» 




*. . • 








• • •• 


X 


*. .« 


X 




X 


• YES 


•»••• 


• NO 


*•••• 


• YES 


• ••*» 




•BF • 




*BF * 




*BF • 




« E5» 




• D5* 




* D5* 




• • 




* • 




• * 




• I 


LSVC2 


• ILSVC 


* ILSVC 


X 




X 




X 








•••••E2***>****** 




•••••E3********** 




• RESTORE 




* TURN ON TYPE • 




♦ SAVE I/O • 


***»E4******»*» 


•PROBLEM PROGRAM* 


• B TRANSIENT • 




• OLD • 


• 


• REGS 2-15 




• ACTIVE SWITCH • 




* PSW • 


• SVC 4 




* 


• SAVE OLD PSW • 




• • 


• 















****Fl** ••*••*• 
• LOAD PSW TO • 
•ENTER NEW PHASE* 



SKPF2 

•••••F2*»* 
•LTFETC 

•—«—*—*—*- 



FETCH TYPE B 

TRANSIENT 

ROUTINE 



••••»F3***»*»» 

* TURN ON 

* TYPE A 

« TRANSIENT 
« SWITCH 



L0AD4 X 

»**»»F4»»w»*»»» 
•FETCH Bl 

*—*—*—*—*—*-•—»• 

* LOAD CALLED 
« PHASE SAVING 

* SVC OLD PSW 



»***E5*»* ****** 
» » 

* SVC 5 • 



»»»»F 5 *•»•»•••* 

get address 

of Users move 

instruction 

REG 13 



X 

•***G2 ***•••••» 

• LOAD PSW TO • 
•ENTER TRANSIENT* 

* ROUTINE * 



•****G3 **•*•••••• 

• PTFETC BG* 
*—•—*—*—*—*—*—*—» 
•FETCH PHYSICAL • 
« TRANSIENT * 

• ROUTINE * 



* GET ENTRY 
•POINT. RESTORE 

• REGS 2-15 



•****G5 ********* 
•GET ADDRESS OF 
•COMMUNICATIONS 
• REGION REG 14 



*«H3******* 
TURN OFF * 

TYPE A 
TRANSIENT 

SWITCH 



•**H4* ******* 

RETURN TO 

INTERRUPTED 

PROGRAM 



EXECUTE 
USERS MOVE 
INSTRUCTION 



RESTORE 

I/O OLD 

PSW 



•***K3*«**»«*«* 

* LOAD PSW TO • 
•ENTER TRANSIENT* 

• ROUTINE • 



***K5 *****»*• 

RETURN TO 

INTERRUPTED 

PROGRAM 



Chart BB. SVC 1 
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••••Al »•»••••»• 

• • 

• SVC 6 • 



•••••Bl •••••»»»»» 

• PUT CODE IN • 

• CANCEL • 

• BYTE * 



••••B2 ••••••••* 

• • 

• SVC 7 » 



CALLCN X 

•••••C !•••••** 

• TURN OFF < 

• TYPE B 

• TRANSIENT 

• ACTIVE 
» SWITCH 



IS ». 
I/O IN 
PERATION 



••••C3***»* 
* SVC 8 



• SVC2 BB* 

•EXECUTE CANCEL * 
» TYPE-B * 
» TRANSIENT # 



»»D2»»«»«»* 

SET WAIT 
BIT IN OLD 

SVC PSW 

BIT 14 



» SVC 9 



•El»»*»*» 

GET JOB 
CONTROL 

ENTRY 
ADDRESS 



»*»*F1 ••••*•••• 

• LOAD PSW TO • 

• ENTER JOB • 

• CONTROL • 




SET USER 

ENTRY 

ADDRESS 



■••F2******** 

RETURN TO 

INTERRUPTED 

ROUTINE 



LEGAL 

ENTRY 

ADDRESS 



TOTRN X 

••*«»E4***»****» 
« SET BASE REG 

• FOR TRANSIENT 

• RETURN FROM 

• PROBLEM 

• PROGRAM 



« LOAD PSW * 

•TO ENTER TYPE B« 
• TRANSIENT • 



SVC 10 



SET TIMER 

TO NEW 
INTERVAL 



•BF • 
• E5» 



FOR OPEN, 
CLOSE, AND 
EOV ROUTINES 



SET NEW 

TIME OF 

DAY 



••»«H3«* ••••••• 

* LOAD PSW • 

• TO USER • 



#»«*J5 ••»••••• 
» RETURN TO 
• INTERRUPTED 
» PROGRAM 



Chart BC. 
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Charts 



139 



•Al*»*»» 

SVC 11 



»»*«A5*»»*» 
* SVC 15 



FT 


X 








TURN OFF 




TYPE B 




TRANSIENT 




ACTIVE 


*»* 


SWITCH 



RESMVT 
YES -•* 



SYSAND 

•»*»«C2***««** 

* RESET * 

* JBCSW1 • 
» DECIMAL 57 IN 
•COMMUNICATIONS 

* REGION * 



»«»»D1»»*»»»»»» 

* LOAD PSW TO » 

• RETURN TO » 
•CALLING PROGRAM* 



•**C3»»****» 
SVC 13 



SYSOR 

•»»»*D3 ••••••• 

• SET • 

• JBCSW1 • 

• DECIMAL 57 IN 
•COMMUNICATIONS 

• REGION • 



B5 *. 

CHANNEL 

QUEUE 
DVERFLOW 

***NO 



C5 ». 

.» HAS *. 
•SYSRES BEEN*. 

MOVED BY 
». FETCH .• 



•••••D5 ••••••*••• 



••••E2******** 
• RETURN TO 
» INTERRUPTED 
» PROGRAM 



•••••E4******* 
» RESET * 

• CANCEL SWITCH* 

• FOR NORMAL 

• END OF JOB • 



SVC 

EXECUTE 

USERS CCB 

ON SYSRES 





CALLCN X 


X 


»«»*»F4*»»»»»« 


••»«F3»**«»**«» 


• RESET 


RETURN TO * 


• TYPE B 


INTERRUPTED * 


• TRANSIENT 


PROGRAM * 


» ACTIVE 
• SWITCH 





•EXECUTE CANCEL 

• TYPE B 

• TRANSIENT 



•••G5******** 

RETURN TO 

INTERRUPTED 

PROGRAM 



«*»H4»***«**« 

LOAD PSW TO 

ENTER JOB 

CONTROL 



»»**»J5 •••••»•••• 



RETURN TO 

INTERRUPTED 

PROGRAM 



Chart BD. SVC 11 - SVC 15 
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I SVC 16 



SVC 19 



STXITP X 

*»»»»B1*» *»•«»»• 
» STORE ADDRESS 
» OF USERS SAVE 

• AREA AND 

• PROGRAM CHECK 

• ROUTINE 



»»»B4*»»»*»»* 

GET ADDRESS 
OF USER 
SAVE AREA 



♦GET ADDRESS OF 

* USER 

* SAVE AREA 



»»C3***»* 

SVC 18 



RESET BUSY 
INDICATOR 
BIT 16 IN 
SAVED PSW 



»»*»C5*»*»****» 
* LOAD PSW 
•TO ENTER USERS 
« KEY ROUTINE 



»»#Dl»»»»«»«» 

RETURN TO 

INTERRUPTED 

PROGRAM 



RESET BUSY 
INDICATOR 
BIT 16 IN 
SAVED PSW 



•STORE ADDRESSES* 
» OF USERS SAVE • 
•AREA AND TIMER • 
• ROUTINE » 



RESTORE REGS 

AND RETURN 

ADDRESS 



REGS X 

*»#»»E2»**«««« 

• RESTORE 

• REGS 

» AND RETURN 

• ADDRESS 



.* KEY • 

.INTERRUPTION 
*. PENDING .* 



•««F3»*«»«**« 

RETURN TO 

INTERRUPTED 

PROGRAM 



•GET ADDRESS OF 

• USER KEY 

• ROUTINE AND 
» SAVE AREA 



X 

*»»G2»«»*»»* 

LOAD SAVED 

PSW 



RETURN TO 
POINT WHERE 
PROGRAM CHECK 
INTERRUPT fiCCURRED- 



• • *. 






»*#«G5 *•*»*»»»• 


.* ROUTINE *. 


YES 


• 


LOAD • 


*. BUSY .« 




• 


SAVED PSW • 


• • •• 


• 


» 


» 


**•. .•"* 


X 






* NO 










• • 




RETURN TO 




• 1 • 




POINT WHERE 




• • 




TIMER INTERRUPT 




• ••» 




OCCURRED 


X 








•**«»H4««»*»»« 
















* SET BUSY • 








• INDICATOR * 








• BIT 16 IN • 








» SAVED PSW • 









ROUTINE 

ADDRESS 

LEGAL 



.* SAVE • 
.AREA ADDRESS 
♦. LEGAL .» 



• •*• 

• » 

• 1 • 



Chart BE. SVC 16 - SVC 19 
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«C3***«» 
SVC 21 



•BA-G2 
BB-D2 
BB-D3 



»«*«D1»»»«» 
» SVC 20 



GET ADDRESSES 

OF USER 

SAVE AREA 



SAVE 
ILLEGAL 
SVC PSW 



STXITC X 

***»»E1»» »»*»*** 

• STORE ADDRESS 

• OF USERS SAVE 

• AREA AND 

• KEY ROUTINE 



RESET BUSY 
INDICATOR 
BIT 16 IN 
SAVED PSW 



ILSVC2 X 

•»«»»E5**»«*»*»* 

* PUT CODE 
» FOR ILSVC 
•IN CANCEL BYTE 



»*«»F3*»****««* 

RESTORE REGS 

AND RETURN 

ADDRESS 



TURN OFF 

TRANSIENT 

ACTIVE 

SWITCH 



•»«G1*»*«*»»* 

RETURN TO 

INTERRUPTED 

PROGRAM 



•EXECUTE CANCEL 

* TYPE B 

* TRANSIENT 



»«»H3*»»**»» 

LOAD 
SAVED PSW 



LOAD PSW TO 

ENTER JOB 

CONTROL 



RETURN TO POINT 
WHERE KEY 
INTERRUPTED OCCURRED 



Chart BF. SVC 20 - SVC 21; Illegal SVC 
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»A1*«»«» 
FETCH 



...*B1.. ....... 


** 


».*B2«»«*>»* 


»»# 






SAVE NAME 




LTFETC ».... 


....X» 


OF PROGRAM 


* 


• 


* 


CALLED FOR 


* 




* 




* 



PTFETC » 



m****C2* ******* 

• ENABLE I/O 

• INTERRUPTS 

. X* SET FETCH-IN- 

* OPERATION 

* SWITCH 



« INITIALIZE * 
• TO READ » 
•PHASE INTO CORE* 



READ BLOCK 
OF TEXT 
INTO CORE 



* SYSRES •. NO 


.* IS IT 


«. NO 


♦.SEARCHED .» 
***YES 




**»*YES 




!x 




• 




.X. 

E2 •. 

** HAS **. NO 

SYSRES BEEN .*.... 
*. MOVED .« 
». .» 

*. .» X 
• YES *»* 

'. * L 


\ 




*.»F2»»»*«»«»»» 

SAVE PHASE » 

NAME. SET • 

READ FORWARD * 








Ix 









MORE 

BLOCKS IN 

. PHASE . 



TURN OFF 

SYSRES 

MOVED SWITCH 



STORE PHASE 

NOT FOLND 

CODE IN 

CANCEL BYTE 



DISABLE I/O 

INTERRUPTS. 

RESET FETCH 

SWITCH 



TURN OFF 

TRANSIENT 

ACTIVE 

SWITCH 



•EXECUTE CANCEL 

* TYPE B 

• TRANSIENT 



..»*K1>. ...... 

LOAD PSW 

TO ENTER JOB 

CONTROL 



TYPE A 
TRANSIENT 
. LOADED . 



READ RECORD 
INTO 
CORE 



READ RECORD 
INTO 
CORE 



TEST FOR 
ERRORS 
PENDING 



Chart BG. Fetch Subroutine 
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EXTERNAL 
INTERRUPT 



•»*»A 4* •••••*•• 

PROGRAM CHECK 

INTERRUPT 



•••»»B1»»»»»*»*»* 

•SAVE REGISTERS * 
» 0-15 AND » 

• OLD PSW IN • 

* SVPSW « 



•SAVE REGISTERS 

• 0-15 AND 

• OLD PSW IN 

• SVPSW 



» GET ADDRESS * 
•OF USER PROGRAM* 
• CHECK ROUTINE • 
» AND SAVE AREA * 



RESET TIMER 

AND TIME OF 

DAY 



GET ADDRESS 

OF USER KEY 

ROUTINE AND 

SAVE AREA 



GET ADDRESS 

OF USER TIMER 

ROUTINE AND 

SAVE AREA 



SET BUSY 
INDICATOR 
BIT 16 IN 
SAVED PSW 



ROUTINE 

ADDRESS 

LEGAL 



STORE PROGRAM 

CHECK CODE 

IN CANCEL 

BYTE 



SET BUSY 
INDICATOR 
BIT 16 IN 
SAVED PSW 



.« SAVE • 
.AREA ADDRESS 
•. LEGAL .• 



TURN OFF 

TRANSIENT 

ACTIVE 

SWITCH 



ROUTINE 
ADDRESS 
LEGAL 



•EXECUTE CANCEL 

• TYPE B 

• TRANSIENT 



.* SAVE •. NO 
.AREA ADDRESS .•... 
♦. LEGAL .» 



LOAD 
SAVED PSW 



*»»J3* 
LOAD PSW TO 
ENTER USERS 
ROUTINE 



*«»*J4« *»#»***♦ 

• LOAD PSW 
•TO ENTER USERS 

• ROUTINE 



LOAD PSW 

TO ENTER JOB 

CONTROL 



RETURN TO 
POINT WHERE 
EXTERNAL 
INTERRUPT 
OCCURRED 



Chart BH . External Interrupt; Program Check Interrupt 
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»Al***»* 
TAPERR 



» 1 



»##B1*«*»»*»» 

IF NO TEBS 

INCREMENT 

ERROR COUNT 

IN PUB 



.X* 



*»»»*B4»»»»*»» 
» PREPARE 

EQUIPMENT 
CHECK 
MESSAGE 



GET ADDRESS 

OF CCW 

FROM CSW 



* WAS *. NO 

CCW ADDRESS .*... 
*. STORED .» 



»«»#E1«»»«»«** 

GET ADDRESS 

OF CCW 

CAUSING 

INTERRUPTION 



ECHECK 

•**«*F1***»»»»* 

* GET TEB 

» ENTRY NUMBER 
» AND TEB 

* DISPLACEMENT 



*#*#G1******** 

USING CNTRTNt 

INCREMENT 

RETRY 

COUNTER 



GET SET 

MODE CCW 

ADDRESS 



.* ». 




•ft*»C4»**»***»* 




YES 


* PROGRAM 


INTERVENTION 




» CHECK EXIT 


•.REQUIRED .» 


- 




***. .»** 


X 




» NO 


»CB*» 
* HI* 

• * 

INTRTN 


EXPRG 


.X. 






03 ». 












• *. 


YES 




OVERRUN 


* . . • . 


















X 




« NO 


*CB * 
* C4» 

OVERTN 




.X. 






E3 «. 












* DATA * 


YES 




CHECK 


» . . . . 


















X 




» NO 


»cc*» 

* Al« 
DCTRTN 




.X. 






F3 ». 












» DATA * 


YES 










». CHECK .» 







G3 *. 




»»»»#G4» «*»»»»»** 






» POST DATA » 


COMMAND *. 


YES 


* CONVERTER * 


REJECT 




* CHECK BIT * 




. 


» IN CCB * 


*». .»"* 


X 


•»••**»*»••»•••«• 



.* CHAINING «. YES 
». CHECK ...... 


* CONTINUE EXIT 




• 


*♦. .«* X 

• no •»*•» 

»CB » 
» C4* 


EXCON 










OVERTN 
X 
»»«»*J3***«*>»*«* 






« PREPARE » 
» NO SENSE * 
» INFORMATION « 
* MESSAGE * 




* * 





*«»K3*»*«»»* 

EQUIPMENT 

CHECK EXIT 



Chart CA. Tape Error Recovery: Equipment Check, Data Converter Check 
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N .X. 

Al ». 

.* RETRY *. 
.* COUNTER • 
.GREATER THAN 



•••••CI** ••»»*»» 

• USING HEADQ. 

* PUT BACKSPACE 



RETRY EXIT • 
EXRTY 



•*B2***»** 

PREPARE 
BUS OUT 

CHECK 
MESSAGE 



TURN OFF 
RETRY 
FLAG 



**»D2******* 

EQUIPMENT 

CHECK EXIT 



*»CA-D3,H3 



•C4****** 
PREPARE 
OVERRUN 

CHECK 
MESSAGE 



.* RETRY ». 

COUNTER 

LESS THAN 



READ *. 
OR WRITE 
. COMMAND .» 



READ *. NO 
BACKWARD .*... 
. COMMAND .» 



••••••• 



USING HEADQ 
PUT FWD 

SPACE CCB 
BEFORE 

USERS CCB 



« HAS • 

CHANNEL END 
•.OCCURRED .» 



••••Jl»»»»»*»»* 

CONTINUE EXIT * 



•••••J2 »••**•*• 
» PREPARE 
« INTERVENTION 

• REQUIRED 

* MESSAGE 



••»»H4** ****** 
* RETRY EXIT 



Chart CB. Tape Error: Bus Out Check, Intervention Required, Overrun, Chaining Check 
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PREPARE 
DATA 
CHECK 

MESSAGE 



RDBRTN X 

* INITIALIZE 

• BKSP AND FWSP 

* COUNTERS 

• FOR 

« TAPE CLEANING 



« WRITE • 

TAPEMARK 
». COMMAND . * 



READ ». YES 

BACKWARD ...... 

COMMAND .* 



•»»C3«»»»»»» 

MODIFY 
REPOSITION 
CCW FOR 
FORWARD 
SPACING 



.» IS ». 

RETRY 

COUNTER 

.LESS THAN. 



RETRY EXIT 



*«*D5***»**» 

EQUIPMENT 

CHECK EXIT 



»»»*E 2* *»»*»»»* 

INITIALIZE 

BKSP AND FWSP 

COUNTERS FOR 

TAPE 

CLEANING 



»«*E3**ft»**«* 

INCREMENT 
COUNTER FOR 

INITIAL 
READ ERRORS 

IN TEB 



••**F1»»»«»«»* 

INCREMENT 

COUNTER FOR 

INITIAL 

WRITE ERRORS 

IN TEB 



*»»F2»*»»«»* 

MODIFY 

REPOSITION 

CCW TO 

BACKSPACE 



••F3»««»«* 

TURN ON 

SELECTED 

ERROR 

FLAG 



• *•• 
* 3 • 



.* RETRY ». 

COUNTER 

LESS THAN 

16 



»»#»H1**»«»«»» 

INCREMENT 

COUNTER FOR 

ERASE GAP 

IN TEB 



G3 ». 
.* ». 

IS 

NOISE BIT 



YES 



» 5 » 

• • 
• •*• 



TURN OFF 
RETRY 
FLAG 



COMPUTE 

RECORD 

LENGTH 



TSTLRD .X. 

G5 •. 
.» IS ». 
RETRY » 
.COUNTER LESS 
THAN .» 
. 101 .» 

*»*N0 



RDCNT X 

*****H5»*»****«* 

* INCREMENT 

* COUNTER FOR 
•PERMANENT READ 

* ERRORS IN TEB 



»»»»J1»« *••*••• 
USING HEADQ, 
PUT BACKSPACE 
AND ERASE GAP >■ 
CCBS BEFORE 
USERS CCB 



*»*J2**»»«**»* 
EQUIPMENT • 
CHECK EXIT » 



INCREMENT 

COUNTER FOR 

NOISE RECORDS 

IN TEB 



* TURN ON * 

* IGNORE 
♦FLAG. TURN OFF 

* RETRY FLAG * 



»**K1 »*»•»«*»• 
RETRY EXIT * 



»«*»K4«****»» 
• RETRY EXIT 



EQUIPMENT 
CHECK EXIT 
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.♦ IS ». YES 
.TAPE CLEANING.*.... 
*. NEEDED .* 



ERRS 10 

BACKSPACE 

RECORD 



»«B5»*«»«* 
PREPARE 
COMMAND 
REJECT 
MESSAGE 



ERRS 10 

REPOSITION 

TAPE 



Dl •. 

.** ERROR "*. YES 
ON ...... 

•.RECOVERY .• 



NO 



BIT 1 ON 
IN SENSE 
. BYTE 3 



ERRSIO 

EXECUTE 

TRACK IN 

ERROR COMMAND 



» ERROR 

ON 
•.RECOVERY 



RETRY EXIT 



«»«H2»»»««*» 

PROGRAM 

CHECK EXIT 



.• ERROR *. YES 






YES .» CONTROL 


♦.RECOVERY .« 






». 


• . .• X 

• NO »••* 
. • • 
• 5 • 




• NO 


*** 








X 

•»••* D3 »••••»•••» 

• DECREMENT * 

• BKSP COUNTER • 

• » 

• • 


CTROLL .X. 

DA ». 

.»* WTM *«. YES 
». COMMAND .* 


.X. 
D5 •. 

.•* READ 

«. OR WRITE 

*. COMMAND 



.« DOES BKSP ». 

.COUNTER EQUAL. 

». .» 



PROGRAM 
CHECK EXIT 



FWSTCL X 

•»«»»F3**»*«» 

AT 
ERRS 10 
FORWARD 

SPACE 
RECORD 



ERROR 

ON 

.RECOVERY 



»»»H3 »»»»•»*»« 



• 


AT 


» 


• 


ERRSIO 




* 


EXECUTE 




• 


SENSE 




• 


COMMAND 


• 



IS TAPE 

FILE 

.PROTECTED. 



•••••G5 •«•»»*»»•* 



ERROR 

ON 
SENSE 



.X. 

J3 ». 

• DOES *. 

FWSP ». NO 
COUNTER .*... 
EQUAL .* 



•FILE PROTECT 

• TAPE 

• MESSAGE 



»**H5»«*»**» 

EQUIPMENT 
CHECK EXIT 



••••J5 ••••••• 

• PROGRAM 

• CHECK EXIT 



• YES 

X 

• * 

• l • 
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• $$ANERRM 



SET ADDRESS 

OF CCB TO 

ZERO 



.X. 

Dl •. 
.» ANY « 
ENTRY ON 

CHANNEL 
. QUEUE 



OBTAIN CCB » 
ADDRESS FROM » 
CHANNEL QUEUE « 



»*»*Fl*» ••••••< 

SAVE UNIQUE 

ERROR MESSAGE 

FOR NEXT 

PHASE 




.« USER « 
ACCEPT 
DISASTER 
. ERROR 



»»*»»C5**»*****»« 

* SET » 
» ACTION EQUAL » 

* INFORMATION, » 
•TARGET 1 IGNORE* 
•TARGET 2 BLANK « 




POST SELECTED 

ERROR TO 

CCB 



•••••Gl** ••*••••• 

• SET » 

• ACTION EQUAL * 

• INFORMATION, • 
•TARGET 1 CANCEL* 
•TARGET 2 BLANK * 



.• IS •. NO 

•.STATUS DEVICE.*... 
•. END .• 



.« IS ». YES 

•STATUS CHANNEL ».... 
*. END .» 



.# USER * 
ACCEPT 
SELECTED 
. ERRORS 



•*»**G5**» ••»•»»• 

• SET * 
» ACTION EQUAL • 

* INFORMATION, • 
•TARGET 1 IGNORE* 
•TARGET 2 BLANK » 




ril ». 
.• IS *. 

» RETRY OR 

IGNORE BIT 
». ON 



• DEVICE * 

END POSTING 
♦.REQUESTED.* 



POST DISASTER 

ERROR IN 

CCB 



SET FTCHNM 

TO CALL 

SECOND PHASE 



•••• 
1 • 



X 

• ••• 

I 2 • 



»**•» J5 •••••*«•• 

* RESTORE 

* USER 

* REGISTERS 8-1 



*»K5 •••••» 

SVC 3 

FETCH 

$$ANERRN 
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•*A1****»* 
$$ANERRN 



•••A3****** 

$$ANERRO 



»***B3 »*•»»»*»« 

INITIALIZE 

REGISTERS AND 

CCWS TO 

PRINT LINE 



•••••CI *»•»*»»»< 

• SET MESSAGE 
•NUMBER, ACTION 

• AND TARGET 

• CODES INTO 
» PRINT LINE 



»**C3********* 

GET PUB 

ADDRESS OF 

DEVICE IN 

ERROR 



• IS *. NO 
CCB ADDRESS .«... 
*. ZERO .» 



* SET SYSTEM 
« LOGICAL UNIT 

* NAME SYSXXX 



SYCLAS 

•••••Fl** •••••• 

• SET SYSTEM 
» LOGICAL UNIT 

• NAME INTO 

• PRINT LINE 



•»*G1******** 

CONVERT 

CHANNEL AND 

UNIT TO 

PRINTABLE 

CHARACTERS 



LACSW 

•••••HI*** •»*•**« 

* SET COMMAND * 
•CODE, CSW, AND • 

* SENSE DATA • 
•INTO PRINT LINE* 



CALPH3 X 

•»«**J1****»»»*» 

• SET FTCHNM TO 

• CALL PHASE 3. 

* RESTORE 

* REGISTERS 8-L 



*»K1»»**** 

SVC 3 

FETCH 

SSANERRO 



IS *. NO 
THERE A .*... 
SYSLOG .* 



•••••F 2* ******** 
•SET PROGRAMMER 

• LOGICAL UNIT 

• NUMBER INTO 

• PRINT LINE 



GET CHANNEL 

AND UNIT OF 

SYSLOG 



IS 

SYSLOG 
A PRINTER. 



UNIT 

CHECK 

ON I/O 



PRINT ERROR 



• 


MESSAGE * 








NO .* REPLY 




ON 
SYSLOG * 










• 






*. . 










*. •* 












• • • * 












* YES 




























..X* 2 « 












• • 






















KANEXT 




KTETAR .X. 




KREPLY X 




*J 3»* ******** 


J4 *. 




*eoe«J5o*fi*eee 






.* *. 






SET • 


NO .* TARGET L 




* SET SWITCHES 




CANCEL «X.. 


*. IS 




* FOR 1052 


• 


MESSAGE * 


*. IGNORE 


• 


* REPLY 


* 


*•»«»•»»»• 


*. .* 




* 



••••K3*«****»*« 
* CONTINUE EXIT 



••••K4*»»«***«* 
• CONTINUE EXIT 



•*K5****** 

SVC 3 

FETCH 

$$ANERRP 
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SSANERRP 



.» WILL 
». REPLY COHE 
•.FROM 1052. 



.• WAS 

REPLY 
• . RETRY 



IS 

IGNORE 
ALLOWED 



STORE ERROR 

CODE IN 

BYTES 0-3 



SETWAT X 

»»»»*D1»»» **•»»♦ 

* SET EXTERNAL < 

* INTERRUPT PSW < 

* TO RETURN < 

* CONTROL TO 

* THIS ROUTINE 



LOAD PSW 
WAIT STATE 



EXTERNAL 

INTERRUPT 

ENABLED 



SAVE 
INTERRUPT 
STATUS 



«• 


WAS 


* 


YES 




REPLY 






*■ 


IGNORE 


»* 


• 








X 




• NO 




* 5 




.X. 








D3 • . 














NO .• 


WAS 

REPLY 

CANCEL 


• 


YES 


... .^ 


« 


. 
















X 






















» 6 


» 3 


*.X. 






» 






»» 








AREPLY 


X 






••••*»E3 »*»»»*»♦*»* 




ALLOW 






* 


REPLY 
FROM 1052 




* 






' 



.• UNIT 
CHECK 
♦.ON REPLY 



•••••F5**>*»**«* 

» CLEAR 
•COMMUNICATIONS 
« BYTES IN CCB, 

• ZERO RETRY 

• COUNTER 



EXTERNAL 

KEY 

.INTERRUPT. 



• DID 

REPLY COKE 
•.FROM 1052. 



WAS 
REPLY 
RETRY 



»»H1*»«*«»* J 

RESTORE 

EXTERNAL 

INTERRUPT 

PSW 



WAS 
REPLY 

IGNORE 



RETRY EXIT 



KEY 
INTERRUPT 
. ONLY 



ntKl»*»»***«< 
SET CONDITIONS 
FOR LATER 
PROCESSING BY 
EXTERNAL 
INTERRUPT 



.X... 
X 

• ••• 

2 • 





• WAS * 


. NO 




REPLY 
«. CANCEL .« 

*»*YES 






















6 »... 






• 














KANEXT X 






••••*K3»««»***« 
















SET MESSAGE 






• 


TO CANCEL 


• 












* 




* 





Chart CG. Message Writer: $$ANERRP 



Charts 



151 



$$ANERRU 



GET PUB 

IN ERROR. 

NOTE DEVICE 

TYPE 



SET UP 

MESSAGE FOR 

INVALID SENSE 

BITS 



SENSE •. YES 






*»*NC 






. X. 
E2 *. 

"supported**, no 

DEVICE .* 


*«#«#E3***»*»»**» 

* SET UP » 
...X» MESSAGE FOR » 




**»*YES 


« UNSUPPORTED • 
« DEVICE * 




.X. 
F2 ». 

"supported**, no 






*»*YES 







#»»G2»»»»«»*» 

SVC3 FETCH 

SSANERRV 



«»#H5»*»»«*»« 

SVC3 FETCH 

$$ANNERV 
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$$ANNERV 



GET PUB 

DEVICE TYPE, 

CCU, CCB 



NTERVENTION 


*. .. . 










.REQUIRED .• 


























X 








* 


* NO 


*CK * 
» B4* 

* 










.X. 












E2 •. 






»»»E3»»»»«**» 




















YES 




SET UP 






BUS OUT 




. .X» 


BUS OUT 
MESSAGE 


** 




. CHECK .« 








». .» 




» 




* 


X 

• *•• 


» NO 
































• 2 » 
























«*»» 


.X. 




DOl 








F2 ». 










••••*F4********** 














DATA • 


YES 


• 


SET UP 


* 


« IF 1403, * 


CHECK 






DATA CHECK 
MESSAGE 


*« 


X* SET TO IGNORE * 


. ■ * 






* BUT NOT RETRY * 


*• . » 












*. . » 













.* CHANNEL *. 

.END OR DEVICE. 

*. END .» 



CONTINUE 
EXIT 



*»«F5»»**»*« 

EQUIPMENT 

CHECK EXIT 



G2 ». 

**. YES 

OVERRUN .*.... 


»»#»»G3»««»*»»»*« 
« SET UP * 


*»*»G 4» »#*»»*»» 
» EQUIPMENT » 
....X» CHECK EXIT * 


SEE UNIT CHECK 
ERROR EXIT ROUTINES 




X * MESSAGE » 





SET UP 

COMMAND REJECT 

MESSAGE 



UNUSUAL 

COMMAND 

.SEQUENCE 



POST 

BIT IN 

CCB 



»*»*J4***»*« 

CONTINUE 
EXIT 



SET UP 

UNUSUAL 

SENSE BIT 

MESSAGE 



•*»*K4»»»*»*» 

* EQUIPMENT 

,X» CHECK EXIT 
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SET UP 

EQUIPMENT 

CHECK 

MESSAGE 



SET UP 

INTERVENTION 

REQUIRED 

MESSAGE 



CI ». 

2 54 OR 



»»«C2 »»•»••* 

EQUIPMENT 

CHECK EXIT 



••••C5 •»*»•»•» 

EQUIPMENT 

CHECK EXIT 



SET TO 

IGNORE BUT 
NOT RETRY 



••••D5»***»« 
• CONTINUE 
-X» EXIT 



•««F3«**»* 

RETRY 
EXIT 



NEITHER CHANNEL NOR DEVICE END 



* EQUIPMENT 
» CHECK EXIT 



.♦ 1403 
OR 
*. 1443 



G2 ». 

1052 



»»*G3*»*»»»» 

EQUIPMENT 

CHECK EXIT 



»«*»J1»###«#» 
• EQUIPMENT 
» CHECK EXIT 
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*»A1*»»»»* 
$$BCHKPT 



••••A2*««****** 

FIX CCH ADDR. 
SET UP HEADER 
AND GET UNIT 
USING CHKPT 
FIELD -REG 0- 



«. TAPE UNIT 



LSTLG X 

* CALCULATE • 

* NUMBER OF » 

* RECORDS IN « 
•PROBLEM PROGRAM* 
« AREA » 



STARTMSG 

»«»»*»C3*»»»*»»» 
AT 
• IORT 

PRINT ERROR 
« MESSAGE 



NNNNNNNNNNNNNNNNNNNNNNNNNN* 

• 1ST-HEADER * * 

• 2ND-REGISTERS, • 
•COMMUNICATIONS * 

• REGION • 



»«»D2»*»* 

AT 

IORT 

WRITE 

RECORDS 

TAPE 



•«*»D3 •*••••••• 

• SVC 11 • 

* RETURN TO • 
•CALLING ROUTINE* 



•TURN OFF SWITCH* 



.» MORE 32K 

PROGRAM 

•. RECORDS 



G2 «. 
.• LAST *. 

• RECORD 

LESS THAN 
».100 BYTES. 



AT 

IORT 

WRITE PROGRAM 

* RECORD • 



•NNNNNNNNNNNNNNNNNNNNNNNNNN 

* * WRITE TRAILER • 

» RECORD AFTER • 

» LAST PROGRAM • 

• RECORD » 



MAKE LAST 

RECORD 

100 BYTES 

LONG 



H3 •. 

SWITCH 



»»***J2**«»»»» 
♦TURN ON SWITCH* 



IORT 

PRINT 

CHECKPOINT 

MESSAGE 



»#»»K 4* »•»•*»»» 

* SVC 11 • 

♦ RETURN TO « 
•CALLING ROUTINE* 
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$$BCNCL 





•••Bl*****i 




• 




• 


• 


WAIT FOR 


• 


• 


COMPLETION 


OF • 


• 


ALL I/O 


• 


• 




• 



CANCEL 
CODE IS 
-00- 



• 3 

• ••• 



• SYSLOG 

AND SYSLST 
». SAME 



*B5**»*»»»* 

PRINT 



PRINT MESSAGE 



CODE IS 
PROGRAM 
CHECK 



•»*»F1******* 

COMPUTE 
DISPLACEMENT 
FROM 
CANCEL CODE* 



DETERMINE 

MESSAGE CODE 

AND MESSAGE 



SET UP FOR 
TAPE OR 
PRINTER 



RLCCB 

« PRINT 



E5 •. 
TAPE EOF 



X 

••••F5»*»****** 
• SVC2 
•FETCH $SBEOVRT 



CNCL 
PROG . 



►PROGRAMMER • 
OR OPERATOR 
►. CANCEL .* 



•••Jl»«*«»*»* 

SET MESSAGE 







• ••• 






• 








.X* I 


• 














» 


USERCN 


: 




•«**»K1» 


•*•*•« 




• 






• 




SET Ml 


ESSAGE 


• 




TURN 


OFF 




* 


DUMP ! 


SWITCH 


• 


» 






• 



PHNEND 

ILLSVC X 

•••••H2******»*»* 
•ILLEGAL SVC-10-* 
•REG EQUALS I » 
•PHASE NOT FOUND* 
• -11- » 
•REG EQUALS • 



ILPH 

• SVC 2 
•FETCH $$BILSVC 



RESET CANCEL 
CODE TO 00 , 

TURN OFF 
CATAL SWITCH 



•••*K3** •*••••• 

• SVC 11 • 

• ENTER • 

• JOB CONTROL • 



SVC 2 
FETCH SSBDUMP 



Chart DB. Cancel: 



$$BCNCL 
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• $$BDUMP • 



•••*B2»»»«»» 
$$BPDUMP 



CHRGDP 

«»*»*B4« 
•EDPRT 



«•«••*•• tNNNNNNNNNNNNNNNNNNNNNNNNNN 



* PRINT 
•COMMUNICATIONS 
» REGION 



THIS STEP IS 

CONTAINED IN 

DUMP PROGRAM 

ONLY 



SET UP 

LIMITS FOR 

CORE DUMP 



* 2 «.X 

• »•• 
LNTST 

D4 



X. 



♦.LINE COUNT .» 
*. .« 

"**YES 



PRINT HEADI 



«•*•*»•«•*»•• 



LINE2 X 

•••«*F2***»* 
•RGPRT 



NEXTL X 

•EDPRT BD» 

•~print~a"linI*~» 



.» FLOATING 
«. POINT 
• . FEATURE 

• > •» 
•■ .* 
* YES 


*. NO 

X 

*» 

* I 

• * 


•••••H2 *»••«»»•»» 
•RGPRT BD« 

•PRINT FLOATING • 
•POINT REGISTERS* 

• • 






. 














X 
• I • 









X 
• 2 



XNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 

*H4»*****»*» • DUMP - SVC 14 * 

• »EOJ TO JOB CTL » 

EXIT • *POUMP - SVC 11 • 

» • RETURN TO ♦ 

«•*••••«•••* *CALLING ROUTINE* 
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•A2***» 
PGHD 



•PREPARE HEADING* 

* LINE, RESTORE » 

• LINE COUNT » 



* SET NEXT » 

* WORD UNEQUAL » 
•AND LINE TO BE 

* PRINTED * 

* SWITCHES * 



•.LINE COUNT ...... 



NEXT WORD 

UNEQUAL 

. SWITCH . 

•.RESET.* 



»#»*Dl***»* 
* RGPRT 



RESET NEXT 

WORD UNEQUAL 

SWITCH 



.X. 

D5 *. 

.* IS *. 

* LINE TO 

BE PRINTED 

*. SWITCH . 

«. SET .« 

*"*"yes 



ADDRESS FIRST * 

POSITION * 

OF LINE * 



• *** 


















• 


2 *. 


X 








• 








»•»• 








UNPK 




X 




»«»««F2 




















* 


EDIT 


ONF 


WORD • 










• 









NEXT WORD «. NO 
IN DUMP .«... 
. LIMITS .* 



.X. 
G4 *. 

PRINTER 
***NO 



RESET LINE * 
TO BE PRINTED 
SWITCH * 



* REPLACE 2ND * 

* WORD WITH * 

* —SAME — , * 
•CLEAR REMAINDER* 

* OF LINE * 



.* TWO *. 

ADJACENT •. YES 
WORDS .*.... 
. EQUAL .• 



•»*J5»***« 
RETURN 



»*«««K2******* 

* SET NEXT * 
« WORD UNEQUAL • 
•AND LINE TO BE * 

* PRINTED * 

* SWITCHES • 
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•♦Al*»»»*« 
$$BILSVC 



SET UP 

ILLEGAL SVC 

MESSAGE 



SET UP PHASE 

NOT FOUND 

MESSAGE 



SET CANCEL 
SWITCH FCR 
JOB CONTROL 



.« SYSLOG *. YESX 
». AND SYSLST .«. 
*. SAME .» 



» RESET CANCEL 
« CODE TO -00- 
» AND RESET 
* CATAL SWITCH 



SET UP 
FOR TAPE 
OR PRINTER 



SVC 4 

LOAD JOB 

CONTROL 



RLCCB X 

PRINT DB 



«»**K5* 

SVC 2 

FFTCH $$BDUMP 
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•••Al«*»«*> 

$$BJCOPT 



•SET UP CCH.CCB 
« LOCATE PUB, 
» CONVERT -CUU- 
* TO HEX 



• 5 
GOTOIO* 



AT EXCPRG 

ISSUE SENSE 

COMMAND 



AT EXCPRG 

REWIND 

TAPE 



♦OUTPUT FILE*. 

AND FILE 
♦ . PROTECT .♦ 



.. 


A3 ♦ . 

INPUT 
FILE 

*»*NO 


». YES 


•••••*A4»< 
AT E 

• FUR 


<CPRG 
*ARD 
PAST 
ELS ♦ 


• 




» LABI 




•••«B4*< 

* SVC 

♦ RETUF 
♦CALLING 




ISKPVUL 


X 

AT EXCPRG 
READ 
LABEL 


< 

11***** 

IN TO 
ROUTINE 



READ TAPE. 

CHECK FOR 

BAD I/O 

RETRY 



.• UNIT ♦. 
.EXCEPTION AND. 
♦. NO EOF .♦ 



• ••*G2****"«»* 

* SVC 11 • 

♦ RETURN TO » 
♦CALLING ROUTINE* 



AT EXCPRG 

REWIND 

TAPE 



• SVC 11 * 
X» RETURN TO * 
•CALLING ROUTINE* 



• HAVE •. NO 
READ VALID .»... 
•VOL 1 LABEL* 



AT EXCP.RG 
WRITE 
HDR1 
LABEL 



AT EXCPRG 

WRITE 
TAPEMARK 



• SVC 11 • 

* RETURN TO • 
•CALLING ROUTINE* 



■*#G 4* *•♦*•»• 

WRITE ERROR 
MESSAGE 

AND 
CANCEL 



WRITE 

ERROR 

MESSAGE 



WRITE 

ERROR 

MESSAGE 
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SiBMSGIN 



*«»»»*C2»*»*«»«* 

* WRITE READY 
MESSAGE 
* ON SYSLCG 



READ 

FROM 

SYSLOG 



E3 ». 

CANCEL 



SVC 6 
CANCEL 



SCAN NEXT 
CHARACTER 
OF ENTRY 



F3 ». 

PAUSE 



TURN ON 
OPERATOR 
PAUSE IN 

JBCSWO 



» SVC 11 • 
• RETURN TO » 
•CALLING ROUTINE* 



WRITE ERROR 

MESSAGE. 

ON SYSLOG 
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TURN ON 

OPERATOR 

LOG IN 

JBCSWO 



END 

OF 

ENTRY 



H3 ». 

NOLOG 



TURN OFF 

OPERATOR 

LOG IN 

JBCSWO 



Charts 
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*$BPCHK 



•••••B4*» »••••••• 



» OR PRINTER 



SET CANCEL 
SWITCH FCR 
JOB CONTROL 



RLCCB X 

••••»«C4**»»»»**«* 

PRINT DB 

INTERRUPT AND 

CANCEL MESSAGE 

ON SYSLST 



BUILD 

INTERRUPT 

MESSAGE 



SYSLST 

IS A TAPE 

. AT EOF . 



•»»*D5»*»»»*» 

• FETCH 

• $$BEOVRT 



»**»E4»»*»*»* 

RESET CANCEL 

CODE TO -00- 

RESET CATAL 

SWITCH 



.• SYSLOG 

«. AND SYSLST 

». SAME 



• IS 
DUMP 
SWITCH 
ON 



•*»»»*G2»*»»«*»«* 

PRINT DB 

'"interrupt AND 

CANCEL MESSAGE 
ON SYSLOG 



••••G5 ••••••••• 

SVC 2 
FETCH $$BDUMP 



• SVC 11 » 
» RETURN TO » 
•CALLING ROUTINE* 



Chart DH. Program Check: $$BPCHK 
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$$BRSTRT 



A4 ». 
.» IS •. 

.•THERE CURE 
. SPACE FOR 
• • CHECK- . 
•.POINT.* 

****YES 



•GET CHECKPOINT 
•IDENTIFICATION 
• NUMBER 



» RESTORE 
•COMMUNICATIONS 
• REGION 





.» IS *. 






•CHECKPOINT 






UNIT A 






». TAPE 


















• YES 














• 


I ».X. 










OKTAPE** 




SYSR 


X 




*•« 


• ••D2*«»«*"« 


* 


READ TAPE 









• LAST 

PROGRAM 
•. RECORD 



E2 ». 

HEADER 



•E3**»*« 

SVC 6 
CANCEL 



• MODIFY LOAD 

• ADDRESS AND 
•RCDUCE PROGRAM 

• RECORD COUNT 



F2 *. 
••CORRECT*. 
•CHECKPOINT •. NO 
ID NUMBER .•... 



• ANY « 

PROGRAM 

RECORDS 

LEFT 



• •G2*»»"*« 

READ 
REGISTERS 
AND SAVED 

CCMREG 

RECORD 



RSTLOG 

##*»G4»»»»»«*»* 

REPOSITION 

LIOCS FILES. 

•BLOCK COUNT IS 

SPECIFIED 

BY DTF 



RSTPHYS 

•••••H4********* 

• REPOSITION 

• PIOCS FILES, 
•BLOCK COUNT IS 

• SPECIFIED 

• BY USER 



.•HAS SIZE OF». 

*. SUPERVISOR .• 

*. CHANGED .* 



PUT RESTART 
ADDRESS 
IN PSW 



SVC 11 

ENTER 

NEW ROUTINE 



Chart DJ. Restart: $$BRSTRT 
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* $$BECVRT 



.* UNIT *. SYSLST 
«. AT END CF .• 






.« SYSLOG ». NO 
». ASSIGNEO ...... 


• . VOLUME .* 
'•SYSPCH 

X 

• GET DEVICE • 
•ADDRESS-CHANNEL* 
» AND UNIT-OF * 

• SYSPCH • 


CKLST X 

#»«»»C3 »•«**«*•»* 

• GET DEVICE * 
•ADDRESS-CHANNEL* 

• AND UNIT-OF • 

• SYSLST « 


• • • * . 

***YES '. 

X '. 

»«#«»»C4***»»*«»»»« . 

WRITE CANCEL 

• AND ATTENTION • 

MESSAGES 

* ON SYSLOG • 








.X. 
D2 *. 

.•* SYSLST *». NO 
•. ASSIGNED ...... 

*. .* 

*«. .•* X 


FND X 

•#*»*D4*»»*»»* 

• SET CANCEL • 

• SWITCH IN * 

• JBCSW3 • 



**E2 ********** 

GET DEVICE • 

ADDRESS-CHANNEL* 

AND UNIT- • 

OF SYSLST • 



« SYSLST 

AND SYSLOG 
•. SAKE 
•DEVICE • 



WRITE 
MESSAGE 

ON 
SYSLST 



SET OPERATOR 

PAUSE SWITCH 

IN JBCSWO 



SVC 14 

EOJ RETURN TO 

JOB CONTROL 



WRITE 
MESSAGE 

ON 
SYSLST 



Chart DK. End of Volume: $$BEOVRT 
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JOBCTL 



#»*B2**»«**» 

INITIALIZE 

REGISTERS, 

CALCULATE 

LENGTH CF 

LABEL AREA. 



SET SYSLOG 
SWITCHES IN 

JBCSWO 



CLEAR 

BUFFER 

AREA 



«E3*«»***«*« 
CANCEL » 

CCLRTN, 



•»G3»«*»» 
STMT IN 



SYSRDR 
AT EOF 


• . YES 


*»»*H3 »»*»»***• 
* * 
..X« EOJRTN * 








'•"no 




CHART EJ 


.X. 
J2 «. 

OPFRATPR 
PAUSE BIT 


«. YES 





PAUSE 

MESSAGE ON 

SYSLOG 



• SET JOB 

« CONTROL INPUT 
« TO SYSLOG. 
•RESET OPERATOR 

• PAUSE BIT 



»»»»K5 •**••»••• 
» STMTIN * 



Chart EA. Initialization 



Charts 
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1 * 

• ••* 



Chart EB. Input 



••••A2 •••••»••• 
• STMTIN • 



CMNTPR 

**LOGGER* 



LOG STATEMENT 

• ON SYS LOG » • 

SYSLST 



.X. 
B2 *. 
.• UNIT *. 
.• EXCEPTION •. YES 


•••••B3 *••••*•*•• 
•EXCPRG FC* 

»—*—•—*—*—*—*—»—• 


». .* 

». •• 

•. .» 

• NO 


« 


PROCESS UNIT • 
EXCEPTION • 




\ 


•••••C2* ********* 
•RDSTMT FE* 

•READ STATEMENT * 

• FROM SYSROR * 

• OR SYSLOG * 







»*»**D2 •••*•••*• 

• SET OPERATOR 

• COMMAND BIT 

• ON IN JBCSHO 



• LOCATE FIRST 
•OPERAND. CHECK 

• OELIMITER 



•»»»B5 ********* 
♦ STMTIN 



SLASH "*. 


YES 


•***C5 ********* 


.* 
*. .* 

*• •• 
* NO 

.X. 
DA *. 

SLASH *"». 
ASTERISK 

• • 
*• •• 


YES 




CHART EJ 

•***D5 ••••*•••• 
..X* STMTIN * 



» SET OPERATOR 
.X* COMMAND BIT 
• OFF IN JBCSWO 



•***F3****« 
.X* IGNORE 



•«»»FA»*»****** 



IGNRTN, CHART EJ 



* LOCATE SECOND » 

• OPERAND. » 
•CHECK DELIMITER* 



SEE FIGURE 
29 FOR THE 
BRANCH TABLE 



.* FIRST *. 

.* CHARACTER • 
.OF STATEMENT 
». BLANK .* 



AT TABLE2 

DETERMINE 

EXIT 



BEGIN SCAN 

AT NOTFRS 

RATHER THAN 

TABLE1 



•***H5 ********* 



SEE FIGURE 
29 FOR THE 
BRANCH TABLE 



DETERMINE 

EXIT FROH 

OPERAND 
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• ••« 

• 1 

•••• 



•**»A 2 *•♦♦»»•** 
♦ACTION OR ENTRY* 
• OR PHASE • 



•»»»A4***»****» 
INCLUD • 



IF LOG, WRITE 

• ON SYSLST, * 

SYS LOG 



• GET OPERAND 



LINK ». NO 

BIT ON IN 

. JBCSW1 . » 



WRITE COUNT 

♦AND STATEMENT* 

ON SYSOOO 



COPYRT 

* SET LINK * 

* EDIT PERMIS- * 
♦SION BIT ON IN 

* JBCSW1 ♦ 



•F2»«^«* 
STMTIN 



.♦ OPERAND 


♦ . 


YES 


*. PRESENT 


.* 


. . . . 




. • 




*. .♦ 






♦ . .♦ 




X 


* NO 




♦ ♦♦ 


„ 




♦ 1 


• 




*..* 


X 






*«*«*«D4«»*»»» 






QLOGER 


Fh 




IF LOG, WRITE 




♦ ON SYSLST, 


• 




SYSLOG 







LINK 
BIT ON IN 
. JBCSW1 . 



ASSURE SYSIPT 

IS ASSIGNED 

SYSIPT 



••♦•E5 ♦♦♦♦♦♦** 
♦ ERROR 
.X^ OUTSQN 



Chart EC. ACTION, ENTRY, PHASE, INCLUD 



COPYLP X 

EXCPRG FC 



• •••••^♦•♦♦♦» 

EXCPRG 

WRITE ON 
♦ SYSOOO 



Charts 
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• ASSGN 



QLOGER 
IF LOG, 



•••••Cl»»> »«»»•*» 
•SCANR2 FF» 

•PICK UP LOGICAL* 

• UNIT SPECIFI- • 

• CATION. CHECK » 



•••••Dl» 

•CKCVLU FB* 

*—»—»—»—»—»—•—#—» 

• CHECK SYSXXX • 

• SET LOGUNT, • 
•UNCLOR, STRLUB * 



»••••»••• 



•PICK UP DEVICE 

• SPECIFICATION 

• CHECK 



. X* 



•••••F2****««*«* 

• SET LOGUNT 

♦ BIT 1 ON. 
SYSXXX MUST 

BE PROGRAMMER 
UNIT 



YES .« END ». 


.» END ♦ . 


YES 


...». OF SCAN .• 


♦. OF SCAN .* 




• •■ .* 












X •. .» 




X 


♦••« » NO 


* NO 


»•••• 


EE • 




• EE ♦ 


Bl« 




♦ Bl» 














SGNLU 


. 


ASGNLU 


X 


X 




••••*C 3»* •*••*•*» 






•SCANR3 FF« 


♦SCANR3 FF* 




»-#-♦-#-*-»-«-#-» 


»-»-»-»-•-»-#-»—* 




« PICK UP TAPE • 


♦ PICK UP * 




• SPECIFICATION • 


♦ -TEMP- • 




» OR -TEMP- • 


* * 





• CHECK FOR • 

• TAPE. SET • 
X» C0MTP7 FOR • 

• 7-TRACK TAPE • 



•»*#»G2»««»"**»«« 



HI 


». 


















.* *. 


rFS 
















• . .» 




















• . .• 












» NO 








»»» 
• 
• 3 

• 








DEV X 


TSTTMP 


X 




••••• J2 •••*••»•*» 




••••Jl*»« ••»»»* 




•CKCVCU FB« 


. 


ERROR • 




*-•-»-•-•-•-#-•-• 


.* 


NVSTMT • 




• CHECK CUU • 




• 




• SET UNT, • 

• STRPUB • 


*. 











• ••• 
» 2 



•*««*j 4* •••••••• 

• SET OPERATOR 

• COMMAND BIT 
.X* OFF IN JBCSWO 

• -HAD TO BE ON 



••••K3«*« •••••• 

ERROR • 
NVSTMT • 



• •*** 

• EE • 

• Bl» 



Chart ED. ASSGN: Analyze Operands 
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•ED-B3 
ED-B4 
ED-J* 



ASGNLU .X. 

Bl •. 

.* IS *. 
.» ASGNMT 
• . UA OR I6N 



• IS 
ASGNMT 
ALT 



• ••• 
• i 



RSTNTR X 

•••••Cl*« *••••••• 

• IF COHTP7 NOT » 
•SET, INITIALIZE* 

• WITH MODE * 

• FROM PUB 



ALSO USED BY 
SUBROUTINE 
RSTRTN, CHART FF 



•••••C3 »»**»*•»• 

• CHECK FOR 

• PROG UNIT. 

« CHECK DEVICE 

• TYPE SAME AS 
» NORMAL ASGNMT 



SAVPUB X 

•••••DL*»*«*»>»** 

• FROM PUB • 
•ADDRESS COMPUTE* 

• PUB POINTER. • 

• CHECK DEVICE. » 

• SAVE TYPE • 

.NO 



•••••03 •••••••• 

• GET J IB F 

» PICK UP THE 

• JIB POINTER 

• FROM THE LUB 



.X. 
El •. 

.•ASGNMT •• 
.•TO PROG OR 
. SYS UNIT 



.» WAS *. 

.•THERE A JIB#. NO 
POINTER .*... 



ASGNSY X 

•••»*Fl«* •••*»»»« 

• CHECK IF THIS • 

• DEVICE MAY BE • 
» ASSIGNED TO • 
» THIS SYSTEM • 

• UNIT • 



ASGNPR X 

»»*»»F2**»»*»*»* 

• IF UNIT IS 
» SYSOOO RESET 
•LINK EDIT BITS 

• IN JBCSW1 



•••••F3«* •••••••• 

• AT SMTPTSt • 

• CHECK THAT • 
•ALT AND PRESENT* 
•ASGNMT BOTH STD» 

• OR BOTH TEMP • 



NOJIBP 

•••••F4**«* •••••• 

» AT SMTPTSt * 
•CHECK THAT ALT • 

• AND PRESENT • 
•ASGNMT BOTH STD* 

• OR BOTH TEMP • 



CURRENT 

DEVICE 

ASGNMT 



4JA OR ASSIGNED 
*.... TO A 

. PROG UNIT 



•••••G3 »•»•»••••» 

• FIND END OF * 

• CHAIN. CHAIN • 

• ON NEW JIB • 



•ASSIGNED ••»• 
.TO A • • 
.SYS UNIT • 1 • 



•••••G4**»**»***« 

• CALCULATE NEW * 

* JIB ADDRESS • 
♦FROM FAVP, PUT • 
•JIB PTR IN LUB • 
•LUB FLAG IN JIB» 



ASGNS3 X 

•»*»»H1»» »•••*••« 
•CHECK IF DEVICE* 



YESAL4 X 

•••••H3******»* 

* UPDATE FAVP 
« FROM CHAIN 

* FIELD IN JIB, 
« SET END-OF- 

* CHAIN BIT. 



** 




*» 


• 


SET JIB FLAG 


• 


• 


TO ALT, PUT 






PUB POINTER 




*« 


IN JI8 


•« 



*K3»**»»*»»» 
STMT IN * 



Chart EE. ASSGN: Check Device Type: Make Alternate Assignment 
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• ••*• 




• EE • 




• A3* 




• • 




• 




■ 












NOALT X 




«••** A 1»* ••»»»*•• 


•GETJIB FO 


•—»-»—•—»—•—»-•• 


-• 


• PICK UP THE 


• 


• JIB POINTER 


• 


* FROM THE LUB 


* 



Bl •- 


»»«**B2 *»»•»»*»•• 


.•PRESENT*. 


• NO NEED TO • 


STD, •. YES 


• DECUE. IF JIB • 


MAKING TEMP .• 


..X» FOR ALT • 


. ASGNMT .* 


• ATTACHED, RE- • 


* . .* 


•PLACE LUB FLAG ♦ 


• . .» 





NOTFSD X 

•••••C !••••• •**•• 

•JIBDCU FD» 



• SET LUB FLAG 

• BITS 0,3 OFF 
.X* BIT 2 ON. 

• NULL PUB 

• POINTER 



••••C4> ••••••••• 

SET LUB FLAG • 

BITS 0,3 ON * 

BIT 2 OFF. ♦ 

NULL PUB • 

POINTER • 



* CURRENT • 

PUB-POINTER 
*. NULL .» 



•••»•£!••*••••••• 

• RESET PUB • 

• JOB CONTROL * 
•FLAG BITS 1,4,5* 
•BY SCANNING ALL* 

• OTHER LUBS • 



.X. 



EFFASG X 

•****E4**** •••••• 

* SET LUB FLAG, • 

* BIT OFF, * 

* INSERT PUB • 
•POINTER IN LUB * 



MAKING •. STD 
STD OR TEMP ...... 

. ASGNMT .» 


». .» 




*. •• 

* TEMP 


X 

• ••• 




• 




• 1 < 




• 




• **• 


.X. 
Gl *. 




.* *. 

PRESENT * 


YES 


. OR IGN .* 





•»*»F4* 

IF UNIT IS 

SYSLST, SET 

LINE COUNT 

FOR NEW PAGE 



PGASG1 X 

•»***H1*»* ••••••• 

• BUILD JIB TO • 

• STORE STD * 
•ASGNMT. UPDATE • 

• FAVP. SET LUB * 
•FLAG, BIT 1 OFF • 



»»**G4* 

IF TAPE.SET 

PUB DEVOPT 

BYTE. IF SYS 

UNIT AT LOAD 

POINT, OPEN 



SET PUB 

JOB CONTROL 

FLAG BITS 4,5 



•*«*»J2 •••••••• 

• SET LUB FLAG 
» BIT OFF, 
X* NULL PUB 
» POINTER. 



»»»*«K2 **»**•••»» 

• SET LUB FLAG • 
.X* BIT ON, ». 

• NULL PUB • 

• POINTER • 



*••• 

• « 

* 3 ».X, 



••••»J4«» 
•LOGCHK l-u 

*—*—»—»—»—»—»—•— 

* REDO SETTING 
•ON SYSLOG BITS 

• 6,7 IN JBCSHO 



'•*»«•• 



•••*K4*»»*»«* 
• STMTIN 



OR RETURN TO 
SUBROUTINE 
RSTRTN, CHART FF 



» 2 • 



Chart EF. ASSGN: Make Normal Assignment 
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•A5*«*«* 
CLOSE 



»»#»»B1»» »«••»••• 

• SET CANCEL • 
•INDICATOR OFF. • 

• SET INPUT • 

• INDICATOR * 

• TO SYSRDR • 



QLOGER FE 

IF LOG* WRITE 

» ON SYSLST * 

OR SYS LOG 



CCLOUT X 

••••••Cl»* ••••*»•»• 

MSGOUT SYSPTR 

MESSAGE ON CHARTS 
• SYSLOG OR • FD AND FG 
SYSLST 



•C3*»*» 
DATE 



X 

••***C5 •••••*••• 
•SCANR2 FF 

» PICK UP 

» LOGICAL UNIT 
» SPECIFICATION 



CCLRTN X 

•••••Dl*» »»•»•»*• 
•RSTASG FF« 

• RESET LUBS • 

• TO STANDARD • 

• ASSIGNMENTS • 



•••••D3*« *•*»•»»» 
•QLOGER FE« 

• IF LOG. WRITE • 

• ON SYSLST • 

• OR SYSLOG • 



• CHECK SYSXXX 

• SET LOGUNT, 
•UNCLOR, STRLUB 



»»»»»E1»* ••••»••• 
•GETPUB FC» 

»-»-•-•-•-•-«-«-» 

• LOCATE PUB • 

• FOR SYSRDR • 



• PICK UP 
» DATE SPEC 

• 8 CHARACTERS 



.X 

-X. I 

Fl ». »*»*»»F2«*»»«««»« 

.* SLASH • . RDSTMT FE 

» AMPERSAND ». NO «_._._«_♦-._•_»_ 

HAS BEEN .• X READ STATEMENT 

». READ .» • FROM SYSRDR • 

• •' -* 

*. .» ••••*•••••••• 

• YES 



•«»»»F3 *»»•»»•»•* 

• PUT DATE IN • 
•COMMUNICATIONS ♦ 

• REGION AT • 



MUST BE 

SYSLST 

OR SYSPCH 



•••Gl**»«» 
EOJRTN 



••••»G5 »»»••*•*• 

• DEVICE TYPE 

• IN PUB MUST 

• BE FOR TAPE 



NNNNNNNNNNNNNNNNNNNNNNNNNN* 



1M. IPI f 
REWIND UNLOAD 



*»*«J5 •••••••• 

IF SYSLST OR 
SYSPCH RE- 
ASSIGN TO 
STANDARD 
IGN 



»***K5 »•»»•»•• 
• STMTIN 



Chart EG. CANCEL, CLOSE, DATE 
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»»«AL»»»»» 

DVCDN 



*A5»**»» 
DVCUP 



••••••Bl»»»*««« 




QLOGER 


FE 


•-*-•-•-»—•—•- 


•— » 


IF LOG WRITE 




» ON SYSLST, 


• 


SYSLOG 





•••«»C1»**»***« 

• RSTASG F 

• -»-»-•-•-•-•-•■ 

• RESET LUBS 

• TO STANDARD 
» ASSIGNMENTS 



IF LOG WRITE 
» ON SYSLST, 
SYSLOG 



PICK UP 

DEVICE 

SPECIFICATION 



PICK UP 

DEVICE 

SPECIFICATION 



CHECK CUU. 

SET UNT, 

STRPUB 



END 

OF SYS 

LUBS 



CHECK CUU. 

SET UNT, 

STRPUB 



RESET JOB 

CONTROL FLAG 

IN PUB 



•••*»F1»»«**»««* 

•TURN ON DEVICE 

• DOWN BIT IN 

* JOB CONTROL 

• FLAG OF PUB. 

* SET STPPTR 



• INITIALIZE FOR 

• SCAN OF 

• PROG LUBS 



• STMT IN 



DN1 .X. 




Gl ». 








.» NEXT *. 


NO 


».LUB POINTS TO.«.... 


». DEVICE .• 








• • .» 


X 


• YES 


»**• 




• 




• I 




• 




• »*• 



•••*• J 1»# **•**»•* 

• ASSIGN IGN • 

• TO LUB, » 
•IF FIRST TIME, • 

• WRITE HEADING • 

• AT RLSHDG • 



•• NEXT ». 
.LUB POINTS TO. 
•. DEVICE .* 



•*H3*» •••••••* 

JIBDCU FD« 

DECUE JIB » 
CHAINS * 



END 

OF PROG 

LUBS 



ft«eeJ3«»»«««tt«» 

ASSIGN UA TO 

LUB. IF FIRST 

TIME WRITE 

HEADING 

AT RLSHDG 



RESET 

SYSLOG BITS 

6,7 IN JBCSWO 



SYSLGR 

WRITE LUB 
* SYSXXX 



*K5»»»*« 
STMTIN 



Chart EH. DVCDN, DVCUP 
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•Al»***» 

EOJRTN 



»»»#A5 •»»»»••»» 
» IGNORE * 



Bl *. 


»»»»*B2»*»»»*»»*« 






•GETPUB FC» 


****B3*»*«***** 


JOB ». NO 






IN PROGRESS .• 


...X* GET SYSRDR ». . . . 


....X» STMTIN 


"*. .*** 


• PUB TO TURN » 

• OFF EOF BIT » 


*•»«*•••»••**••» 



*C2«***« 

FETCH 

MAINTC 



SET INPUT BIT 
IN JBCSWO 
TO SYSRDR 



NOCATL 

«**»«D1* 
•RSTASG 



RESET LUB 
ASSIGNMENTS 
TO STANDARO 



*»»»*#E1***«**»* 
EXCPRG Fi 

READ SYSIPT 
» TO A SLASH 
AMPERSAND 



NOIPT X 

***»*F1*»****»» 

* RESET JBCSW2 

* AND JBCSW3 
•AND JOB NAMES. 
» TURN OFF JOB 
» IN PROGRESS 



INITIALIZE 

FOR SEARCH 

OF PUBS 



IF TIMER, 
GET TIME 
HH.MM.SS 



MTTEST 


.X. 
G3 *. 








END 






*. 


OF PUBS 
































* NO 






MTZERO 


.> 


(. 








H3 *. 












.•TEB COUNTS 


* 


. 


* 


*. .* 
****YES 






• •** . 






* 










* 4 


*.X, 


















• ••• 








INCPBP 


X 






*»«»«j 3* ********* 










• 


BUMP TO 




• 


• 


NEXT PUB 




* 










* 


X 

• •*• 








* : 


* 







MTCUCV 

*»»»»«H4*** 
MSGOUT 



IF FIRST TIME, 
•WRITE HEADING* 



CONVERT TEB 

BYTES TO 
DECIMAL AND 
RESET TO 



****»H5 ******/**** 

* RESET LINE * 

* COUNT AND * 

* JBCSW1 * 



RSTCOM 
IN JOB 
ROUTINE 



WRITE 

ERROR 

COUNTS 



Chart EJ. End of Job 



Charts 
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•A2**»* 

EXEC 



IF LOG WRITE 
» ON SYSLST, 
SYSLOG 



SET FETCH BIT 

TO SYSRES IN 

JBCSWO 



PICK UP 
PROGRAM 
JBCSH1 



FETCHR 

•MOVERT 



MOVE LABELS 

TO END OF 
SUPERVISOR 





D2 


*- ft 


•»»**D3********** 
« TURN LINK • 






«. YES 


» BIT AND LINK « 


». 


NO 


NAME .* 


...X«EDIT PERMISSION* 








• BIT OFF IN » 




*. 


.* 


» JBCSW1 • 






* NO 
X 


> 






»*»E2*********« 


•«••*• E3 *•«»»••*»* 


•s 


IZCHK 


FF* 


EXCPRG FC 










• 


CHECK NAME » 


READ PROGRAM 




FROM 


1 TO 8 • 


» NAME FROM * 


»» 


CHARACTERS • 


SYSC 


)00 



•••D5******* 

LOCATE 

LIMITS FOR 

CLEARING 

CORE 



»»»»»E5«*******» 
» MOVE PHASE 
* NAME AND 
» CLEAR ROUTINE 
•TO END OF CORE 



CLEAR CORE 
WITHIN 
LIMITS 



MOVE PHASE 
NAME TC 
WRKFLD 



***G5 ******** 
FETCH PHASE 



•PREPARE SYSOOO 
*FOR LINK EDIT. 
* RESET JBCSW1 



MODIFY 
WRKFLD 
TO RPG1 



Chart EK. EXEC; Fetch 



174 IBM S/360 BOS System Control (16K Tape) 



JOB 



• •••• 
•EJ • 

* H5* 



•••B 2 ******** 

ALL BITS IN 

JBCSVJ1 ARE 

SET OFF 



• 1 ».X. 

• * • 
• ••• . 

RSTCOM X 

•••••B4********* 
•IN COMM REGION 
•RESET JOB DATE, 

• LABEL AREA 

• LENGTH, CHKPT 

• ID, USER AREA 



RESET AFTER 
SIMULATING 
END OF JOB 



»*»C3 ******** 

SIMULATE 

END OF JOB. 

END OF FILE 

IS SYSRDR 



EOFOFF 

•»»«»C4******** 

* TURN OFF 

* END-OF-FILE 

* IN ALL PUBS 



CRJBSQ X 

•••••D2 ••••***••• 
•RSTASG FF* 

*~* RESET LUB « 

* ASSIGNMENTS « 

* TO STANDARD * 



•*D3«* *••••** 
EOJRTN * 



OPERATOR *. NO 

PAUSE BIT .*... 

ON .* 



•E5***«* 

STMT IN 



•»»*»F2 ********* 

* PUT JOB 

* NAME IN 
•COMMUNICATIONS 

* REGION 



IF TIMER 

GET 
HH.MM.SS 



••••*G4********* 

• SET JOB 

• CONTROL INPUT 

• BIT IN JBCSWO 

• TO SYSLOG 



JOB STATEMENT 

» ON SYSLST, * 

SYSLOG 



•»**H4**»**»»* 

SET 

OPERATOR 

PAUSE BIT IN 

JBCSWO OFF 



»J4***** 
STMTIN 



RESET OPTIONS 
IN JBCSW2, 
AND JBCSW3 



Chart EL. JOB 
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•••• A l»* »»•»*»» 
• LISTIO • 



SYSPTR/SYSLGR 



STATEMENT 
* ON SYSLST, 
SYSLOG 



-*-•-• CHART FG 



•••••C !•••••••••• 

•SCANR2 FF* 
»-»-»-•-•-•-»-»-» 
» PICK UP SYS, • 

• PROG, UA .DOWN • 

* OR SYSXXX » 



SYSPAR 

•••••Eli 

•CKCVCU 



.SYSXXX 
X 

•»••••••• 

FB* 



.SYS 
LSTSYS X 
••••••E2*****» 

OUTPUT 

write" 

* HEADER 



.OWN 
LSTDWN X 

•••••E 4* ********* 

* SET MASK » 

* TO WRITE IF * 
•ALL BITS OFF IN* 

* PUB JOB * 

* CONTROL FLAG * 



.UA 
LSTUNA 

••••*E 5 *X ******** 

* SET MASK TO • 

* WRITE IF BITS * 

* 5,6,7 OFF * 

* IN PUB JOB * 

* CONTROL FLAG * 



••••••FU»******»*« 

OUTPUT FA 

•—•—•—»-»—»—•—•—• 

WRITE 

* HEADER * 



••♦••F2*****«* 
» USE TABLE 

* IN ASSGN 
» ROUTINE TO 

* GET LUB 

* NAMES 



••••F3 ******** 
GET LOCATION 

AND NUMBER 

OF PROG LUBS 

START WITH 

SYSOOO 



PUBSRH X 
••••••FA** 

OUTPUT 



•••••»G1»*»«* 

ASGNLS 

* write" 

* ASGNMT 



LSYSLP X 

••••••G2********* 

ASGNLS FA 

»-»—»—»—»—•—*—•— 

IF NAME GIVEN 

* WRITE LUB • 

ASGNMT 



LPRGLP X 
••••••G3*** 

ASGNLS 



* 3 ».X. 
LUALP * .X 



WRITE 

ASGNMT OF 

LUB 



•*G5»**«* 

STMT IN 



• HI* 
STMT IN 



***H2******* 

GO TO NEXT 

LUB IN 

TABLE 



•H3****** 
ADD 001 



MASK 

INDICATES 

. WRITE . 



WRITE 

DEVICE 

ADDRESS CUU 



.* END 


*. NO 


.* END *. 


^0 


• 


ADDRESS 


» 


. OF TABLE 




*. OF PROG .* 






NEXT 


* 








*. LUBS .» 






PUB 
























X 




X 








* YES 




* 1 * 

• ••• 


* YES 


•••» 

• • 

• 2 * 

• •»• 




X 
* 3 * 




X 
















•••»K2 ********* 




••••K3*******»* 


























STMTIN 


*" 




* STMTIN * 











Chart EM. LISTIO 
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»A1»*»*»*»*« 



«—*-*-•-» 



EP» 



•OPTLOG 

•SET JBCSW3. IF * 
•BIT WAS NOLOG • 
•WRITE ON SYSLST* 



X 

LOGGER_ FE 

WRITE ON 

* SYSLOG, • 

SYSLST 



SET OP LOG 

BIT ON IN 

JBCSWO 



IF LOG, WRITE 

• ON SYSLST, • 

SYSLOG 



PICK UP 

TAPE COMMAND 

MNEMONIC 






FIND EQUAL 

COMMAND IN 

TABLE FOR CCW 



•PICK UP NUMBER 

• OF VOL/TPLAB 

* PAIRS 



• CHECK EACH 
•DIGIT. CONVERT 

• TO BINARY. 
•MULTIPLY BY 80 



«E1»***« 
STMTIN 



»*E2»««*» 
STMTIN 



PICK UP UNIT 

OR DEVICE 
SPECIFICATION 



•»«E5»*»***»* 

IF SPACE 

AVAILABLE, 

SET LABEL 

AREA LENGTH 

TO PRODUCT 



»F1*»»«» ; 
NOLOG 



•»»*F5»»*«* 

• STMTIN 

•»•**»»•••* 



IF LOG, WRITE 

• ON SYSLST, « 

SYSLOG 



CHECK SYSXXX 

ADDRESS LUB. 

GET PUB 



CHKLUK 

•CKCVCU _ FB 

» CHECK CUU. 
* LOCATE PUB. 
•ADDRESS SYSUSE 



*«*»H3*» »*»»•»• 

DEVICE MUST 

BE TAPE. 

ASSIGN DEVICE 

TO SYSUSE 



SET OPERATOR 

LOG BIT OFF 

IN JBCSWO 



TAPEXC 

*»«»»*J4* 
EXCPRG 



STMTIN 



•CONVERT FACTOR 

* AND SET 

* COUNTER FOR 

* COMMAND EXEC 



EXEC COMMAND. 
» REPEAT IF 
NECESSARY 



«*»«K4**»*» 
STMTIN 



Chart EN. LOG, MTC, NMTLB, NOLOG 
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•Al»»««« 
OPTION 



OPTNLG HANDLES 



IF LOG, kRITE 

« ON SYSLST, » 

SYSLOG 



NXTOPT 

».»»*C1* 
•SCANR2 



DETERMINE 

ROUTINE 

TO EXECUTE 



»»««B2« 


>•«•••«* 




OPTLCG » 






loPERAND LCG 




C2* 


K. 


•»«««C3»»«»»»***« 


.• PR 

LCG 


:g «. OFF 
BIT .» 


« SET ON • 
..X« IN JBCSW3 * 






». 


•* 







NOLOG 




DUMP 


•••«B4 ••»»»*»»• 


NODUMP 




DECK 


• OPTNLG » 


NODECK 


• • 


LIST 




NOLIST 




LISTX 




NOLISTX 




SYM 




NOSYM 




XREF 




NOXREF 




ERRS 


X 


NOERRS 


•••••C4 ••»•••••»» 


C48 




C60 


• SET BIT IN » 


NOLINK 


•JBCSWI.JBCSW2, » 


MINSYS 


• OR JCBSW3 » 




• • 





«D2»«**« 
RETURN 



»»»*D4»*»«*»« 
« RETURN 



••E3»»««« 

RETURN 



•F3********* 
CATAL 



»Gl»*««« 
STMTIN 



G3 •. 

GO 
BIT ON 

"**NO 



#»«»H3»»»»»*»*« 
CHECK AND 
OPEN SYSOOO. 
LINK BIT ON. 
LINK EDIT AND 
EXEC BITS OFF 



»GA»»»» 
LINK 



GO OR CATAL 
BITS MUST 
NOT BE ON 



••»»H5*»»»»»« 



CATAL BIT ON 



CHECK AND 
OPEN SYSOOO. 
LINK BIT ON. 
LINK EDIT AND 
EXEC BITS OFF 



* RETURN 



• CHECK SYSOOO. 
» LINK AND LINK 
•EDIT BITS OFF. 

• EXEC AND GO 

• BITS ON 



**«K5*****»»»* 
RETURN 



Chart EP. 



OPTION 
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STATEMENT ON 

• SYSLOG, < 

SYSLST 



PICK UP 
LOGICAL UNIT 
HOLDING CHKPT 



SET BIT 2 
IN JBCSkO- 
JOB CONTROL 

INPUT ON 
SYSLOG 



•»«D2*»«*«*» 

SET BIT 5 

IN JBCSWO- 

OPERATCR 

PAUSE BIT 



* CHECK SYSXXX, 
» SET LOGUNT 
•UNCLOR, STRLUB 



#»E1***»»*» 
STMT IN 



STMTIN 



PICK UP 
CHKPT SERIAL 

NUMBER 



REG3 POINTS 

TO UNCLOR 

AND SERIAL 

NUMBER 



SET REG 2 

TO PUB FOR 

CHKPT DEVICE 



IF LOG, WRITE 

» ON SYSLST * 

SYSLOG 



RESET LUB 
ASSIGNMENTS 
TO STANDARD 



•*««K1*«»»* 

• STMTIN 



Chart EQ. PAUSE, RESET, RSTRT 
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IF LOG, WRITE 

» ON SYSLST, * 

SYSLOG 



IF LOG, WRITE 

» ON SYSLST, * 

SYSLOG 



UPSIRT X 
•SCANR2 



PICK UP 

BIT 

INDICATORS 



« PICK UP UPSI * 
« OR DATE OR « 
•LINECT OR CLOCK* 



ACCESS NEXT 

CHARACTER AND 

NEXT BIT IN 

UPSIBY 



CHECK THERE 

ARE FROM 

-8 CHARACTERS 



CONVERT 
HH/MM/SS INTO 
BINARY VALUES ■ 



SLINCT 

»#*#»F2* 
•SCANR3 



PICK UP 

INTEGER 

LINE COUNT 



SSYSDT 

•BINCON 



CONVERT 
MM/DD/YY INTO 
BINARY VALUES 



*F5*»**»* 

SET BIT 

ON IN 
UPSIBY 



•#»##G1**#«»*«»** 


•»«««G2*«*»ft»*«»* 


•COMPUTE NUMBER * 


•CHKNUN FB» 


« OF SECONDS * 




» TIMES 3CO. * 


• CHECK AND « 


* ADD TIMER/256 * 


» PACK MUV8ER * 


* * 


•*••«»•»«•«»•«••• 



»»##H1*»*»»*»»* 

RESULT IS 

IN LOCATION < 

TIME IN < 

SECONDS • 300 ■ 



* CONVERT TO * 

* BINARY. STORE * 
» NEW LINE • 
•COUNT IN LINCON» 



*«G3«»»»»« 

STORE 

DDMMY OR 

MMDDY IN 

SYSDVI 



COMPUTE DAY- 

IN-YEAR IN 
BCD, STORE IN 
SYSDM1 PLUS 6 



SET BIT 
OFF IN 
UPSIBY 



•H5»»»»» 

ERROR 

NVSTMT 



♦•• J2»*»*»**» 
COMPUTE NEW 
NUMBER CF 
REMAINING 
LINES FOR 
JUB CONTROL 



*J5***«« 
STMT IN 



Chart ER. SET, UPSI 
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* * *-■ A2*** * * 
• TPLAR 



IF LCG, WRITE 

» CN SYSLST, • 

SYSLOG 



IF LOG, WRITL 

» ON SYSLST, * 

SYSLOG 



.» LAST •. NO 
•LABEL STATEMENT*... 
». VOL .* 



«C3*»*»* 

ERROR 

OUTSQN 



SPACE 
FOR MORE 
. LABELS 



LtfLEXH 

»»#*#. C5» 

LOGGER 



WRITE ERRUR 

ON SYLST 
AND SYSLOG 



IF TWO CARDS, 

MAKE THEM 

ONE RECORD 



SCAN FOR 

START OF 

FIELD 



* CHECK DELIM- • 
•ITER. DETERMINE* 

* IF LONG CR » 

* SHORT STRING • 



ASSURE THAT 

LAST LABEL 

STATEMENT 

WAS NOT VOL 



*D5«**»« 

ERROR 

CANCEL 



CCLOUT, CHART EG 



MOVE LONG 

OR SHORT 

STRING 



PICK UP 
FILE NAME 
ANU SAVE 



#«*#H2»*»»»»«* 

BUMP LABEL 

AREA POINTER 

AND LBYTCT. 

SET SWITCH 

FOR VOL 



*»«»H4**»**»»»» 
ZERO FIRST 

BYTE IN 

LABEL. SET 

SWITCH FOR 

TPLAB ROUTINE 



SPACE ». NO • SET SWITCH 

FOR MORE .* X« FOR VOL 

. LABELS .* END OF • ROUTINE. 
«. .« CORE • 



» STMTIN 



*K2«»»»» 
STMTIN 



#«K3«»»«» 
STMTIN 



Chart ES. TPLAB, VOL 
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«A4»*»«* 

OUTPUT 



LOCATE PUB 

ASSIGNED 

TO LUB 



ALLOW 

OUTPUT ON 

SYSLOG AND 

SYSLST 



.» PUB *. 

». IS ASSIGNED .• 


NO 












» ■ • • 








"•"yes 








X 

•*»*»Dl»*»*»»»*»» 
•OUTPUT FA» 

• "lTst CUU ~ "• 




NOASGN 

«»»«»D2* 
•GETJIB 

• LOCAT 

• ATTA( 

• TO 


; 

FC» 
E JIB • 

:hed » 

-UB • 



LOCATE JIB 

ATTACHED 

TO LUB 



PRESENT 

ASGNMT 

STD 



STD 
ASGNMT 
IGN OR UA. 



PRESENT 

ASGNMT 

STD 



STIGND 

STUASG 

»»»##H2* 
•OUTPUT 



* * 






•OUTPUT FA» 


JIB IS 




YES 




ALTERNATE 






...X» 


LIST ALT ♦ 










CUU * 






















• NO 








* 










• 


.X . 










J3 ». 








n.jA.......... 












MORE 


• 


YES 


» 


GET NEXT ♦ 


JIBS 


.» 


...X» 


JIB • 



sysptr fg 

~*~*~write~*~*~* 

• ON » 
SYSLST 


»- 


>YSLGR FG 

WRITE 

* ON » 

SYSLOG 


• 












X 
••••E5»»*«»»»** 

• RETURN 



PRESENT 

ASGNMT 

STD 



»K5«»»»» 
RETURN 



Chart FA. ASGNLS , OUTPUT Subroutines 
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•»«AL******* 

BINCON 



•A5***»* 

CKCVLU 



••**»B1*« •••••• 

•SCANR3 

• PICK UP 

• XX/YY/ZZ 

» CHECK 



FF» 



CHECK FOR 

2 NUMERIC 

DIGITS 



CHECK FOR 

CORRECT FORM 

-SYSXXX- 



CHECK AND 
PACK XX, 
YY AND ZZ 



•••C3******* 

PACK INTO 

WORK AREA. 

ADVANCE 

POINTER 



»»»*Dl*»* ****** 

CONVERT EACH 

TO BINARY 

AND STORE 

IN A REGISTER 



**»D3****»* 
RETURN 



* CHECK TABLE 

* FOR VALID 

* NAME 



CHECK FOR 

VALID NUMBER. 

CONVERT TO 

BINARY 



•••*EL** ****** 
RETURN 



* »«»*E<t**»»»***«* 

» COMPUTE » 

* UNIT NUMBER * 
•AND LUB ADDRESS* 

* FROM POSITION * 

* IN TABLE * 



••••E5***»**»*« 

SET PROG UNIT 

BIT ON IN 
LOGUNT, NUMBER 
IN LOGUNT 6 L 



•••Gl****» 
BTLRTN 



COMPARE 

NEXT TABLE 

ENTRY TO 

ARGUMENT 



»F3****» 

CKCVCU 



CHSYS2 X 

*»»»»F4**»****** 

* SET SYS UNIT 

* BIT ON IN 

* LOGUNT, NUMBER 

* IN LOGUNT £ I 





FOR * 

FORM * 

JU- * 

.ID * 

CTER * 




.♦......< 






> 

»*«**G3»* 

* CHECK 

* CORRECT 

* -CI 

* VAL 

* CHAR/ 






CHSYSl X 

#»»»»G5*********« 

* STORE LUB » 
*ADDR IN STRLUB,* 

* LOGUNT IN » 

* UNCLOR » 



FROM FOCL 
PUBADD AND 

UNT, GET 
PUB ADDRESS 



#»#H5*»**» 
RETURN 



KEY 

EQUALS 

.ARGUMENT 



***K1* 

TAKE EXIT 
FROM TABLE 



•••J3***»***« 

STORE OCUU 
IN CHUNT, 

PUB ADDRESS 
IN STRPUB 



«#«»K3*«*** 
* RETURN 



Chart FB. BINCON, BTLRTN, CHKNUM, CKCVCU, CKCVLU Subroutines 
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•AL»»»»»* 
CONCAT 



READ NEXT 

PART OF 
STATEMENT 



COMPUTE LUB 
ADDRESS FROM 
DISPLACEMENT 



IF LOG, WRITE 

* ON SYSLST, ♦ 

SYSLOG 



EXCP 

AND 

WAIT 



CALCULATE 

JIB ADDRESS. 

TEST IF 

ANY JIBS 



♦ PUT STATEMENT < 
♦PARTS TOGETHER 

* IN BUFFER 



*£!»♦♦♦♦ 
RETURN 



.« OMIT *. 

UNIT *. YES 

EXCEPTION 

. CHECK .« 



UNIT 
EXCEPTION 
. NOT EOF . 



RETURN 



RETURN 



*D5***«* 
RETURN 



F3 «. 






»«*#F4*«»* 


♦. YES 




SYSLOG 


..X« STMTIN 



FROM CCB 

IN EXCEPTION 

CALCULATE 

LUB POINTER 



*G1»»««* 
GETPUB 



LOCATE PUB 
FOR DEVICE 
ADDRESS CUU 



COMPUTE LUB 
ADDRESS FROM 
DISPLACEMENT 



COMPUTE PUB 
ADDRESS FROM 

PUB POINTER 

TEST FOR 

NULL POINTER 



*K1»*»»* 
RETURN 



SET SWITCH 
IN STMTIN 
ROUTINE 



»J3***»» 

RETURN 



Chart FC. CONCAT, EXCPRG, GET JIB , GETPUB Subroutines 



» SET OPERATOR 
♦LOG AND SYSLOG 

♦ INPUT BITS IN 

♦ JBCSWO 



LIST UNIT 
EXCEPTION 
WITH CUU 



• ^♦♦♦*» 
STMTIN 
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••••Al*** ••»••• 
• JIBOCU « 



»«»»A5 »»»»•*•» 
MOVERT 



•••••Bl»»**»«»*»» 

• COMPUTE LUB » 

• ADDRESS FROM » 

• DISPLACEMENT • 



TURN OFF 
BITS ' ~ 

IN ■" 



S 6, 7 
JBCSHO 



» MOVE FIELD 
•256 CHARACTERS 
• AT A TIME 



LOCATE JIB 

ATTACHED 

TO LUB 



FIND DEVICE 
ASSIGNED 
TO SYSLOG 



*»»«D2*«**« 
• RETURN 



.* TEMPt *. 
. MAKING STD .• 
». ASSGNMT .» 



ZERO ALL 
JIB FLAGS 
IN CHAIN 



***F2******* 

MUST DECUE 

BOTH STD 

AND TEMP 

JIB CHAINS 



FIND DEVICE 
ASSIGNED 
TO SYSLST 



****E5 ********* 
• MSGOUT * 



ALLOW OUTPUT 

ON SYSLOG 

ANO SYSLST 



FAVP TO 

CHAIN FIELD 

OF LAST JIB 

IN CHAIN 



SAME 
DEVICE AS 
. SYSLOG . 



»G4**»»* 
RETURN 



*»»»»H1*» •**»»* 
» DISPLACEMENT 

* OF FIRST JIB 

* IN CHAIN 

* TO FAVP 



RETURN 

LUB FLAG 

TO LUB 



RETURN 



SET BIT 7 

IN JBCSHO 

ON 



RETURN 



*»H5 *»*»***** 
RETURN » 



Chart FD. JIBDCU, LOGCHK , MOVERT, MSGOUT Subroutines 
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RDSTMT 



WRITE ENTRY 
•STATEMENT ON 
SYSOOO 



ALLOW 

OUTPUT ON 

SYSLOG AND 

SYSLST 



POSITION 
SYSOOO FOR 
LINK EDIT 



RETURN 



READRD X 

••»»*D4»»*« »»»•»» 
•GETPUB FC« 

• CHECK* SYSRDR » 

* IS ASSIGNED * 



-»—«—»—»— 



READ, 
TRANSLATE 



»F1»*»«* 

QLOGER 



LOGGER 



••••F4«»»«* 

RETURN 



»»»»F 5** »**»*** 
RETURN » 



«J1»««»* 
RETURN 



Chart FE. PRPSYO, QLOGER, LOGGER, RDSTMT Subroutines 
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»A1»**«* 

RSTRTN 



••••A3 ********* 
* RSTASG * 



••••A5*«*** 

* SCANR1, 2, 



»»»»»Bl»» 
•GETJIB 

•—»-*—•-»-•-•-•- 

* LOCATE ANY 

* JIBS ATTACHED 

* TO LUB 



FC* 



INITIALIZE 

TO RESET 

SYSTEM 

LUBS 



SCANR3 

»»#»»B A***#**» »» 

* PICK UP 

* POINTER AND 

* LIMIT. RESET 

* PARAM LENGTH 




RESET 

EACH 
ASGNMT 



* INITIALIZE * 

* TO RESET * 
•PROGRAMMER LUBS* 



PICK UP 

POINTER 

AND LIMIT 



SCANR1 X 

•**** r «!«»»*** 

• PARAM LENGTH. 

• SCAN FOR 

• NON-BLANK 



RESET 

EACH 

ASGNMT 



****F3***** 
* RETURN 



SCAN FOR 

COMMA, BLANK 

OR EQUALS 



COMPUTE 

AND SAVE NEW 

POINTER AND 

LIMIT 



COMPARE LAST 

CHARACTER 

TO A COMMA 



SET LCGUNT 
BIT OR 1. 
USE ASSIGN 
ROUTINE TC 
MAKE ASGNMT 



nrv*m***.*.»* 

RESTORE LUB 
PUB POINTER 
USE ASSIGN 
ROUTINE TO 
MAKE ASGNMT 



CHECK LENGTH 

OF PARAMETER 

MUST BE FROM 

1 TO 8 



Chart FF. RSTRTN, RSTASG, SIZCHK, SCAN Subroutines 
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SYSLGR 



»B2«»«»« 
RETURN 



*B4«»«»» 
RETURN 



* SUPPRESS 
•FURTHER OUTPUT 

♦ ON SYSLOG 



••••C3******* 
SUPPRESS 

FURTHER 
OUTPUT ON 

SYSLST 



SYSLOG 
SAME AS 
SYSLST 



* ASSURE SYSLST * 

* ASSIGNED. » 
•GET DEVICE TYPE* 



COMPUTE 

SIGNIFICANT 

LENGTH OF 

STATEMENT 



• CHECK LINE 
•COUNT. ADJUST 

• FOR TAPE OR 

• PRINTER 



NSCLGR 

*»*»*F1* 

•GETPUB 



LINOUT 

•«*«»«F3» 

EXCPRG 



#Hl»»««» 
RETURN 



TIMLOG 



#*«J3*«««* 
RETURN 



* RETURN 



CLEAR BUFFER 

EXCEPT FOR 

TIME. ALLOW 

SYSLOG 



• COMPUTE 

• TIME OF DAY 

• FROM TDD- 

• TIMER/256. 

• HH.MM.SS 



Chart FG. SYSLGR, SYSPTR, TIMLOG, TIMSTP Subroutines 
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OPERATOR SET 

CHANNEL UNIT 

LOAD KEY 



•••• A 4»»»* •»*»« 
• WAIT FUR » 
•OPERATOR ACTION* 



» $$A$IPLl CCW 
LOADS $$A$IPL2 
» INTO CCRE * 



.* RESULT » 
• . OF OPERATOR 
». ACTION .* 



I/O INTERRUPT 



$$A$IPL2 
CLEAR X 

•»»»*C2»*»»«»***» 

• CLEAR CORE * 
•ABOVE $$A$IPL2.» 

• FORCE PROGRAM • 

• CHECK TO GET • 
•BACK TO ROUTINE* 



»»*C4*«**»*» 

LOCATE LUB 

FOR SYSRDR 

IN SYSGEN 

TABLE 



•••**02 ••*•••*•• 

• SAVE DEVICE 

• ADDRESS OF 

• SYSRES 

» AND CORE SIZE 



* IS *. 

SYSRDR 
".ASSIGNED .♦ 



READ 

SUPERVISOR 

INTO CORE 



LUCATE DEVICE 

IN PUB TABLE 

PUT CUU INTO 

I/O OLD PSW 



ENTFR 
RDR .* 



1052 
OR CARD 
READER 



SET LUB 

FOR SYSRDR 

AS PARAMETER 



SET LUB 

FOR SYSLOG 

AS PARAMETER 



ENDRD X 
NNNNNNNNNNNNNNNNNNNNNNNNNN*»*»*G2«*« ••*••• 

* « »LUBRTN GB 

• BUILD PUB FOR * »_»_*_*_«_«_♦_._ 

• SYSRES DEVICE * * MOVE SYSGEN 
» IN LOW CORE • • I/O TABLES TO 

* • • HIGH CORE 



REWIND TAPE 

PUT ERROR 

CODE IN 

0-3 



• BUILD PUB FOR » 
•COMMUNICATIONS » 
•DEV IN LOW CORE» 



»*««*H2********** 

• I/O NEW PSW • 

• POINTS TO • 
•ENTER. EXTERNAL* 
•NEW PSW POINTS * 

• TO EXTRTN • 



«»»»H3««*«»*»« 

WAIT 

MUST RESTART 



• STORAGE «. YES 

PROTECTION .*.... 
•.INSTALLED.* 



SET STORAGE 

PROTECTION 

KEYS 



♦ RESTORE I/O 

♦ NEW PSW, 

♦ EXTERNAL NEW 
» PSW 
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»**A2»»«»« 
LUBRTN 



* INITIALIZE 
•REGISTERS, PUT 

• CHANNEL AND 
« UNIT IN PUB 



MOVE THE PUB 
TABLE TO 
HIGH CORE 
NULL FOCL 



PUT DEVICE 

TYPE IN 

PUR 



.» IS IT » 

.TO ESTABLISH 
*. SYSRES -• 



MOVE THE TtB 
TABLE TO 
HIGH CORE 
IF PRESENT 



ZERO THE 

TAPE ERROR 

BLOCK IF 

TEBS PRESENT 



••*«E3««<*«<»«> 

MOVE THE LUB 
TABLE TO HIGH 

CORE, NULL 
LOW CORE LUBS 



BLDPUB 
PLACES PUB 
IN LOW CORE 



••F5*«***« 

CHURTN 

UPDATES 

FOCL FOR 

LOW CORE 



PUT CARD 

READER TYPE 

IN DEVICE 

TYPE 



PUT 1052 

IN DEVICE 

TYPE 



» LUURTN 
•ASSURES THE LUB 
•ORDERING AFTER 
* ADDING PUB 



.X. 
X 

3 



RETURN 



Chart GB. Build PUB Subroutine 
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*»*»A1********* 
* $IPLRT2 



4 .X. 
A3 ». 

.* HIGH «. 
CORE LUB 
FOR COMM 

. DEVICE . 
•SYSXXX * 

*"«"yes 



Bl NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 

.* IS *. ♦I/O TABLES ARE * 

» SYSTEM ». YES »AT 163B4 IF « 

LARGER THAN ...... ^SYSTEM IS 



• •••CL»«»»»«»<m 

GET I/O TABLE 
ADDRESS AT 

END OF 
SUPERVISOR 



«»»»B3 **»»»»•♦• 

NULL JOB 

CONTROL FLAGS 

IN HIGH CORE 

PUB FOR COMM 

UEVICE 





X 








TF 


MORE THAN 




MNF 


LUB POINTS 




IU 


HIS DEVICE 




RESTORE FLAGS 






-DBLRET- 


» 




Ix 





SENSE COMMAND 

USING IOHL2 

* IN REDRTN * 



• USING PBFRTN, * 

• LOCATE PUB • 
•FOR THIS DEVICE* 



*»*»B5 *»•***»•* 

IF BURST 

OR MPX, USE 

MPXRTN TO 

REORDER 

PUBS AND LUBS 



«»»*C5»*»*»*«** 

UNASSIGN 

SYSRDR, LST, 

IPT, LOG IF 

ASSIGNED TO 

TAPE -OPNRTN- 



••*«D5 ********* 

ASSURE JOB 

CONTROL FLAGS 

IN PUB ARE 

CORRECT 

-ASNRTN- 



PBFFIN .X. 



IS 

TAPE 

.PROTECTED. 



PRCERR ERROR 



COMFND ERROR 



OFF I NT 

»«*»«E5*«»*««»*«e 

•MASK INTERRUPTS* 
•MOVE I/O TABLES* 

* TO LOW CORE * 

• USING SYSMVC * 



• ••*«FL***"***«* 

• CALCULATE * 


* THE 


SIUMBER 




* OF 


PUBS 




• IN 


USE, 


• 


• IF 


ANY 


t*l 



TEBCLC 

•»»**G1*«***»*** 

» CALCULATE 

* THE NUMBER 

• OF TEBS 
•IN USE, IF ANY 



READGO 

•••••K- 

• READRT GDi 
#-*-»-»-•—»-»-•■ 
•READ STATEMENT 



»«*«F3*»«»««»* 
SET UP FOR 
DEVICE CHECK 
DEPENDING ON 
COMM DEVICE 
USED TO IPL 



.» USING ». 
.•COMCHK, IS *. 
.DEVICE IN PUB. 



»»»*»H3 ***•••*** 
•MAKE PERMANENT 
•LUB ASSIGNMENT 
» FOR COMM 
• DEVICE SYSXXX 



COMNFD ERROR 



ENABLE 
INTERRUPTS, 

RESTORE 
SYSTEM PSW 



COMM 

DEVICE 

. 1052 



WRITE 

EXIT 

MESSAGE 



EVALUATE THE 
STATEMENT 

AND EXECUTE 



*4nnmJ3* ********* 

* REPEAT ♦ 

» PROCESS FOR * 
» SYSRES • 



IPLEND 

»«»»#J5 •*•*»•*** 
•ZERO REGISTERS, 
» MOVE LOAD 
• ROUTINE INTO 
•TRANSIENT AREA 



.» MORE ». YES 
». CARDS TO .*.... 
*. READ .« 



PBFRTN 
OR COMCHK 
. ERROR . 



.X« RESNED ERROR 



•»*K5 »*»*♦*»• 
JOB CONTROL 
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READRT 



81 * 
1052 



»F2»**«» 

RETURN 



»««F3«*»*« 
I0HL0 



» GET CCB 
* ADDRESS SET 
•FOR READ ERROR 



•G5****« 

MSGRTN 



»«H3»***» 
SVC 
READ 



WRITE MESSAGE 

1052 IS COMM 

DEVICE 



.X» IOHALT ERROR 



»«J5»«**«*» 

SET CCW 

TO READ, 

BLANK INPUT 

BUFFER 



IOHLD PLUS 4 



Chart GD. Read Subroutine 
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••••A2»»»»» 
* DPRTN 



TRTFFD 
GETS FIRST 

OPERAND, 
CHECK IT 



•••C2»»**«»»* 

LOCATE OP 

CODE IN 

CARD. CHECK 

START BYTE 



» STORE ADDRESS 
•OF FIRST OPER. 
•INITIALIZE FOR 

* OPERATION 

* SEARCH 



•HOLD BEGINNING 
» ADDRESS OF 
• OP CODE 



••»E2**»»»«* 

LOCATE END 

OF OP CODE 

CHECK STOP 

BYTE 



.» COMPOSE *.UNEQ. 
.OPERATION FOR.*. 
*. TYPE OF .» 
•.CARD .» 



PICK UP 

OPERATION 

BRANCH 

ADDRESS 



CALCULATE 

THE LENGTH OF 

THE OP CODE 



MVCCP MOVES 

OP TO END 
OF OP TABLE 



GET LENGTH 

OF CARD 

IMAGE 
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ROOM 

TO ADD 

PUB 



***»B2******** 
PUBEXD ERROR 



••••CI *«*•»»•» 

GET FIRST 

OPERAND 

WITH FDSRTN 

CHECK KEY 



»*»C3**»»»*» 

GET OPTION 

FIELD WITH 

FDSRTN, 

CHECK 



.X. 
Dl «. 

.•OPERAND*. 
• FOR 

SWITCHABLE 
«. DEVICE . 



* STORE OPERAND 

* REGISTERS FOR 
•KEY EVALUATION 



•CONVERT OPTION 

• TO HEX 

» WITH HEXRTN 



•CONVERT CHANNEL* 
• AND UNIT TO • 
•HEX WITH HEXRTN* 



PICK UP 

KEY REGISTER, 

CHECK 



NUHCVT X 

****»E4»**»«»*» 
» CONVERT KEY 

* TO DECIMAL 

• WITH DECRTN. 

♦ CHECK 



DBLSCN X 

•••••Fl******* 

• SCAN PUB 

• FIELD WITH 

• PUB TO BE 

• ADDED 



KEY 

FIELD 

PRESENT 



BUILD THE 

PUB WITH 

BLDPUB 



.* DOES PUB «. 

*. ALREADY .« 

». EXIST .♦ 

• • •• 

♦ . .« 

• NO 


YES 


**»»G2******** 
..X» DDLADD ERROR 


• 


.* IS ». 

NO .* IT A *. 

...*. SWITCHABLE . 

•. DEVICE .♦ 

X *». .»* 

•»•» • YES 

• • 

• 2 * 

• * . 


























»••• . 


X 
•••••Hl»»*«**»«*« 

* GET SECOND ■ 

* OPERAND WITH « 

* FDSRTN, * 

* CHECK ■ 

* « 












X 
•••••H3 ••••••••• 

•SET SWITCHABLE 

• DEVICE FLAG, 
•MINIMUM KEY FOR 

• SWITCHABLE 

• DEVICE 



SET BRANCH 

ADDRESS FOR 

BUILD PUB 

ROUTINE 



•*»J1 *••»•»•» 

SCAN FOR 

DEVICE TYPE 

WITH 

FNDTYP 



PUBMK1 1. 

»*#»*J3«»«»»»*»» 

• SET PUB TABLE 

• ADDRESS FOR 

* BUILD PUB 

* ROUTINE 



UPDATE THE 

FOCL WITH 

CHURTN 



UPDATE THE 

LUBS WITH 

LUURTN 



*J5»«»*» 
RETURN 
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»BL******* 
DELRTN 



END 
OF SEARCH 
. CHANNEL . 



#*»»C1******* 

GET FIRST 

OPERAND 

WITH FDSRTN. 

CHECK 



* ADD 1 TO * 

• NUMBER IN » 
♦SEARCH REGISTER* 



C4 *. 
.* WAS *. 

• SCAN 

SUCCESSFUL 



»***C5********< 
* DELEXT ERROR 



#»#»*D1********** 
•CONVERT CHANNEL* 

* ADDRESS TO * 

* HEX WITH * 

* HEXRTN * 



ARE 
THERE 
TEBS 



GET CHANNEL 
NUMBER AND 
FOCL ENTRY 



*»*»*E3****« 



DELETE ANY 
TEBS AT 
TEBDEQ 



IS 

CHANNEL 
EMPTY 



**»*F2******** 

* DELEXT ERROR 



PUBDEQ X 

•••••F 4** •••*•• 

* GET ADDRESS 

* AND LENGTH 

* OF PUB TO 

* DELETE 



FIND FIRST 
PUB IN 
CHANNEL 



♦DELETE THE PUB 

* WITH 

* SYSHVC 



UPDATE 

THE FOCL 

WITH CHURTN 



»*J4»«»**» 
UPDATE 
THE LUBS 



••*«*••• 



»K4****» 
RETURN 
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** 


••»C2********** 




GET FIRST * 




OPERAND * 




OF CARD » 




WITH FDSRTN * 


* 





IS IT 
THE DATE 
. FIELD 



IS IT 
THE TIME 
. FIELD 



•••D5 ******** 
ILLCD ERROR 



SET DATE IN 
SUPERVISOR 
WITH DATERT 



***E4******** 
SET TIME OF 

DAY IN 
SUPERVISOR 
WITH TIMERT 



GET NEXT 

OPERAND 

WITH FDSRTN. 

CHECK 



****G2»******»* 

GET NEXT 

OPERAND FIELD 

WITH FDSRTN. 

CHECK 



SET DATE 

IN SUPERVISOR 

WITH DATERT 



»»»H2*****»*« 
SET TIME OF 

DAY IN 
SUPERVISOR 
WITH TH'ERT 



*J2****« 
RETURN 



**H4***»* 
RETURN 



Chart GH. SET Statement Subroutine 
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•••••52********** 
•CLEAR ERROR REG* 

• REWIND TAPE. » 
» INSPECT * 
» COMMUNICATION • 

• REGION • 



•»»«*C2********** 

•ASSURF SYSOOO, * 

• SYSOOl AND * 
•SYS002 UNICUELY* 

• ASSIGNED * 



.♦PRIVATE*. 
•RELOCATABLE* 

LIBRARY 
*. ASSIGNED .* 



•••••E2****«**"** 

* TURN ON RLB • 
•FLAG AND REWIND* 

* SW. SETUP FOR « 
♦PRIVATE LIBRARY* 

* REWIND TAPE • 



LOGCNK .X. 

B4 ♦. 






i»..*B5*»«**»« 










.» SYSLOG 
». A 
». PRINTER 


;. 


YES 


t TURN ON 
t LOG PRINT 
FLAG 


* 


















• NO 








Ix... 






• 


LSTCHK .5. 

CA ». 
















.» SYSLST 
*. ASSIGNED 


*• 


NO 




















"** YES 




X 

*JB ♦ 
* B2« 




.X. 
04 ». 




INTCRE 












.• LINE 
♦. COUNT LESS 
♦. THAN 




NO 




♦. 10 .♦ 









MAKE LINE 

COUNT 
EQUAL 56 



OPEN TAPES 

SYSOOl AND 

SYS002 



DETERMINE 

DEVICE TYPE 

FOR SYSLST 

AND POST A 

SIGNAL 



"RLB 

REWIND 

DONE 



• B2* 

INTCRE 



»»#.*H2**»**** 
» TABLE LOOKUP 
» TO DETERMINE 
• IF SYSLOG IS 
•EQUAL TO SYSLST 



.♦SYSLOG ♦. 
NOT EQUAL 
TO SYSLST 



♦»»*K2******* 
TURN ON • 
PRINT-CONTROL* 
SW INDICATING 
SYSLCG EQUAL * 
TO SYSLST * 
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INTCRE X 

»***»B2********* 

* FIND ADDRESS 

* TO BE USED AS 

* END OF 

* SUPERVISOR 

* ORIGIN 



DETERMINE 

ADDRESS OF 

LINKAGE 

TABLE 



ENSURE EOS 

ORIGIN IS ON 

A DOUBLE WORD 

BOUNDARY 



»»#«»C4»»»»*»*»»» 

* CLEAR CORE » 
•USED BY LINKAGE* 

* TABLE AND * 

* CONTROL * 

* DICTIONARY » 



« SAVE ALIGNED 
•ORIGIN ADDRESS 

• FOR USE IN 

• PHASE AND IN 

• COMMON 



•INITIALIZE RLD 
•BUFFER AND TXT 
• BUFFER 
» INFORMATION 



»»*»»E2********** 

» PUT END OF • 
•PROBLEM PROGRAM* 

• ON FULLHORD • 
•BOUNDARY. SAVE • 

• C/D ADDRESS * 



•«»E5****** 

GETCD 
CHART JC 



F2 •. 

.» MORE ». 
• THAN MIN 

CORE AVAIL- 
•. ABLE 



SET UP FOR 

16K 

CONFIGURATION 



•»»F4*» *»••»•*« 

MOVE LOAD » 

ROUTINE TO • 

TEXT BUFFER • 

AREA « 



NXTSZ X 

•••#»G2»******** 

• FIND MACHINE 
•CONFIGURATION. 

• INITIALIZE L/E 

• COMMUNICATION 

• REGION 



G4 ». 

.•REQUEST*. 
» FOR MIN *. NO 

SIZE OUTPUT .•... 
». BLOCK .• 



•••G5*»*«»» 
GETCD 
CHART JC 



H2 *. • 

.* 16K •. * 

.* MACHINE •. YES * 

• .CONFIGURATION.* X* 



h#»*H3*«»»*«« 
SPLIT PASS 

ONE INTO 

THREE CORE 

LOADS 



SET UP FOR 

MINIMUM 
SIZE BLOCK 



INIT4 X 

•«*«*J2>******** 
•INITIALIZE TXT 
•AND RLD BUFFER 

♦ ADDRESSES 

• ACCORDING TO 

* CONFIGURATION 



GETCD 
CHART JC 



* 1 



Chart JB. Storage Initialization 
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»A2»»»*» 
GETCD 





>.»»B2*«****»« 






GET NEST 






ADDRESS 






AND PRESET 






CARD ADDRESS 




* 




* 



CDGO X 

♦SET UP ADDRESS 

* AT WHICH 

♦ THE PHASE IS 
» LOADED 



YES .» DUMMY 
...». PHASE FLAG 
*. ON 



.* INPUT 
FROM 
*. SYSRES 



« FIRST * 

CARD COLUMN 
». BLANK .« 



GETYES 

»*««F2* 
GETRCD 



*»»E4»* *»*»*• 

INITIALIZE 

FOR 12-2-9 

CARD TYPE 

SCAN 



SCAN FOR 

12-2-9 CARD 

TYPE 



GETGO X 

•••••G2**»****« 

* TURN OFF 

* DUMMY PHASE 

* FLAG AND GET 
» END OF CARD 

* ADDRESS 



PHASE 

CARD 

READ 



NOPHCK 

»»»»»G5»»»*»*«»* 

* TURN ON DUMMY 

* PHASE FLAG. 
...X* BLANK PHASE 

* BUCKETS. ZERO 

* PHASE SHIFT 



.•COLLECTING 



GET BRANCH 

DISPLACEMENT. 

GET BRANCH 

ADDRESS 



••••*H5 •*••*•••• 

• SET UP DUMMY 
•PHASE NAME AND 

• ORIGIN. GET 

• LENGTH OF ESD 

• PHASE 



•••••J2******* 
•ACTRTN 

• EVALUATE 

• FOR ACTION 

• CARD 



ESD-CHART KA 
TXT-CHART KJ 
RLD-CHART KK 
END-CHART KM 
REP-CHART KN 



PHSPRO 
CHART LC 



Chart JC. 



Get Card Processor 
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CTLFCH 



••*A3******* 
TNTFCH 



»«A4«»«»* 
LODORG 



»««»B2*»»»*»«* 

SET UP FOR 

CONTROL CARD 

PRCCESSOR 

FETCH 



• SET UP FOR 



• MOVE CHAR B 
« INTO KEY. GET 
» LOAD ADDRESS 
•AND FFTCH NAME 





j 


.X. 
C2 *. 
.»IS THIS*. 
CORE LOAD •. YES 
PRESENT •• 


...X» RETURN 



•»C4««****« 

SVC LOAD 

LOAD 

12-2-9 

PROCESSOR 



•«»»D2»«*««*»« 

SAVE KEY 

AND GET 

ORIGIN OF 

LOAD ROUTINE 



E2 ». 

.•PASS 1 «. 
BOTH .• IN CORE • 
...•. AND INITIAL 
•. LOAD .• 



* 


«««*D4»« 


•••••••* 


» 


MOVE 


CHAR • 




D INTC 


KEY. • 


• 


:alculate load • 


♦ 


\DDRESS. 


RESET • 


• 


FETCH 


NAME • 



••••E4»*«»«**» 

SVC LOAD 
LOAD CONTROL 
CARD 
• PROCESSOR 



♦ 1 
• *•# 



•»»**F2»»*»««**« 

•SET LOAD ADDR. 

• FETCH NAKE 
•ADDRESS EQUALS 

• LOAD NAPE 

• ADDRESS 



»«**«»G2»»*«»»» 
SVC LOAD 
• GET THE 
PROCESSOR 



••••F4*««»»»* 

TURN OFF 

INITIAL 

LOAD FLAG 



RETURN 



Chart JD. Fetch Subroutines 
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•A2****« 
GETRCD 



.X. 

B2 •. 

.• WORK ». 

CNT LOWER 

THAN RCD 

CNT 



•••••E2********* 
» INCREASE 
•CURRENT CNT BY 
•ONE. MOVE SIZE 
•OF RECORD INTO 
« RECCNT FIELD 



»»»»*F2*»*»»»»«< 

• RESET FIRST 
•BYTE OF RECCNT. 
•CALCULATE SIZE 

• OF INPUT 



INPUT 

FROM 

SYSOOO 



LIBRARY 

ON 
SYSRES 



»**E5**»*«»«« 


MESSAGE 


FOR 


EOF 




OR 




BAD INPUT 



ABORT 



.• INPUT • 


YES 


*. TOO BIG 


• *. 


.. • 


















X 


• NO 




• •* 
• 3 


X 






•*«*«H2»***»*«* 


** 




• RESET LOGICAL 


• 




• RECORD COUNT 


• 





SKPRD 

• ••••^••••••••« 

• GET LOGICAL 
•RECORD ADDRESS. 

• INCREMENT 

• LOGICAL 

• RECORD COUNT 



•*«»H5»»*»*»*«« 

MESSAGE FOR 

EOF ON SYSRES 



»J5»»«»« 
ABORT 



•K2»***« 
RETURN 
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• RESTORE 

« MAIN INPUT 

• CCW 



RPSLOP X 

»»»»»B4»»» 
•IORTN 



PERFORM 

TAPE 

ORIENTATION 



RPSRTN 

»»»»»C2« 

»LABCK1 



CHKRT1 X 

»«»«»C3«»*»*»*» 

* CALCULATE 
« RELATIVE 

• LOCATION OF 
» RECORO ON 
« TAPE 



ENOUGH 
SKIPS 
MADE 



»*»«»D2********* 

• PICK UP 
•POSITION COUNT 

• ALLOWING FOR 

• FIRST HEADER 



*««D3******** 

GET PRESENT 

POSITION. 

STORE NEW 

POSITION. 



•D4**»* •••••* 



PREPARE TO 

BACKSPACE 

TAPE 



•»«F3««»*«*ft» 

CALCULATE 
DIFFERENCE 

BETWEEN 
PRESENT POS 
AND NEW POS 



••**F4» ••••••» 

INCREASE 

THE POSITION 

COUNT BY 

ONE 



X 
•G2***»* 

RETURN 



TEST 
CONDITION 
. CODE 



»»G4»*»«» 

RETURN 



•MINUS- *•• 
.FORWARD • 
.SPACE • 2 



••••H3 ••*••••••• 



GET FORWARD 

SPACE 

NUMBER 



MOVE FWD 

SKIP RCD CMD 

TO CCW 



Chart JF. Get Record Subroutine 
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• LABCKl 



TURN ON 

ENTRY ONE 

FLAG 



LABCK2 X 

•••••C3*»«>*«**« 

♦ TURN ON 

» LIBRARY OPEN 
» FLAG. SET FOR 

* FORWARD FILE. 



LABEL 
FLAG 
ON 



»»*»F3*#»»«»» 



• CORE * 

IMAGE 

LIBRARY 



.• *. »«»*H4»**»» 

•RELOCATABLE*. YES « 

LIBRARY .# X* RETURN 



TURN ON 

NO LIBRARY 

FLAG 



•«*«K3**»*« 
RETURN 



Chart JG. Relocatable Library Label Check 
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• CTLRTN • 



•LOCATE AND GET 
« THE OPERATION 
* FIELD 



.» LOOKING ». YES 
.X«.FOR A CONTROL.*.... 
*. CARD .♦ 



PRINT 

ERROR 
MESSAGE 



»«C2***««« 

GETCD 
CHART JC 



GETCD 
CHART JC 



»»»»«Dl»*» »»»»»» 
•INITIALIZE FOR 

• SINGLE CORE 
•LOAD. OVERRIDE 

• IF MULTIPLE 
» LOAD 



• 2 
CTLCHK* 



• TEST 

SUBMODULAR 
». FLAG 



• TEST 

SUBMODULAR 
». FLAG 



»«»*»D5 »••#»•»*» 

• TURN ON FOUND 

• FLAG. GET 
.X» DISPLACEMENT 

• COUNT MINUS 1 

• AND SAVE 



*»#«E4»*»»*» 

• GETCD 

• CHART JC 



»*»»«*F2««*««»»**« 



PROGRAM 
IN CONTROL 
. MODE 



DECREMENT 
RECORD 
COUNT 



PUT INCLUDE 

CARD ROUTINE 

ADDRESS IN 

A REGISTER 



•»J3*»*»**» 

INCRTN 
CHART JK 
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POSRTN 



•••••B2 *•••••*• 
« SET THE 

* LOOP 

* INCREMENT 

* EQUAL TO ONE 



»*»B4«»»»»»« 

EXECUTE 

TEST FOR 

THE STOP 

CHARACTER 



END 

OF 

CARD 



• RETURN 



STOP 
CHARACTER 
. FOUND . 



»»«»»E2 »»»«»»»»« 
« REPOSITION 
• CARD POINTER 
•TO LAST BLANK. 
» SET REG FOR 
» NORMAL RETURN 



FDSRTN X 

•••••F 2 *»»»*»»»» 
•PUT ADORESS OF 

• LAST BLANK IN 

• A REGISTER 



• ALL STOP •. NO 

CHARACTERS .♦... 
*. TESTED .« 



END 

OF 

CARD 



•«G3*«**»*» 

PRINT END 
OF CARD 
MESSAGE 



•••••GA*» ••*•*••' 

• GET OPERAND < 
•ADDRESS. STORE < 
•OPERAND ORIGIN.! 

• CALCULATE 
•OPERAND LENGTH < 



«»*H2«**««»«» 

INITIALIZE 

FOR A SCAN 

OF THE CARD 

IMAGE 



••»•»*•• 



SAVE THE 

STOP 
CHARACTER 



STPLOP X 

•*»*»J2 •••••••• 

• SET THE 

» APPROPRIATE 

• STOP 

• CHARACTER 



RETURN 
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INCRTN 



POSITION TO 

THE OPERAND 

FIELD 



..C2»»»»»« 

GETCD 

CHART JC 



•»**E1»»**»***< 

RESET BUCKET. 

PUT INCLUDE 

MODULE NAME 

IN THE 

BUCKET 



.# NORMAL 


». 


• - INCLUDE 


.* 




















ATOINC* YES 
















»JP *.X 






* G3« 












SCHDET 


< 




•»»»»G1« 




•NSTUPD 




JQ* 


* UPDATE 


E THE 


• 


» NEST 


LIST 




* 




* 


• •** 












«JL «.X 






» Jl» 












SCHDT1 


: 




•••»»H1* 




•ESDCHK 




JM« 




— «-*- 




» INSUR 


E THE 




• ESD PRI 


ICESSOR » 


• IS IN 


CORE 





LIBRARY 


• 


ON 


FLAG 






STATUS 
















X 


•MIXED 


• ••*• 






• JM * 








* DI* 
























LIBERR 


.X. 






C3 ». 












MODULE 


• 


NO 


AHEAD ON 






TAPE 


* 





SET UP 

MODULE 

BASE 



ARE 

MODULES 

EQUAL 



ZERO THE RUN 

COUNTER, GET 

BACK TO START 

OF MODULE 



FNDLOP 

•»»*.G3» 
•CHKRT1 



• NO 






• JM • 




• B3» 


»JV «.X. 




* Cl« 






MODNFD 


MCDCHK .X. 




J3 «. 








.• HEADER *. NO 


». VALID 


...... 



SET UP NEW 

DESIRED 

POSITION 



YES .♦ MODULE ». 
...*. STILL AHEAD .» 
». ON TAPE .« 



YES 


.• PAST 


POS ». 






•. MODULE NOT . 
*. FOUND .• 


* 


X 








• NO 




• JM * 






• D3« 
























MODNF1 






•»***E5*»««»«**4 


» 




• HOLD MODULE 






•AND MODULE END 






•POSITION. SHIFT 






• MODULE CNT. 






•PRESET RUN CNT. 


* 



PRINT 

AUTOLINK 

MESSAGE 



GETCD 
CHART JC 
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SMDSME X 

»»»»*B1 ••*••••••• 

•SCNRTN JL* 



.♦ STOP * 

.CHARACTER IS 
*. A COMMA .• 



PUT SUB 

MODULAR NAME 

IN A BUCKET 



TURN ON SAME 
LEVEL SWITCH. 

SET SVC 
MODULAR LEVEL 



GET THE 

NEXT FIELD 

-OPERAND- 



C5 » 
MORE 



» INSURE ESD * 
•PROCESSOR IS IN» 
» CORE STORAGE * 



SEND 

ERROR 

MESSAGE 



NO .» END STOP 
...«. CHARACTER 
». VALID . 



GETCD 
CHART JC 



»*EA***»»* 

GETCD 

CHART JC 



«E5*»***« 
RETURN 



.X. 
F3 ». 

**«. YES 


ERR33E 


SEND 

ERROR 

MESSAGE 


# 


.STRUCTURE.* 




* 



SMDDIF X 
««#»»G1»»» 
•SCNRTN 



• BLANK NAME 

• LIST. GET SUB 
•MODULAR ORIGIN 

• STOP ADDRESS 



NMELOP X 

»»«»*H3«***«»«* 

• GET THE 

• NEXT FIELD 

• -OPERAND- 

• CHECK LENGTH 



**G4»«**»» 

GETCD 
CHART JC 



••••J !#»»•»»» 

SET 

SUBMODULAR 
LEVEL 



SEND 

ERROR 

MESSAGE 



««K4»»««»* 

GETCD 

CHART JC 
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LIBRTN X 
•LABCK1/2 



OPEN SYSRES 

OR PRIVATE 

TAPE 



•DECREASE POSCNT» 
* AND STORE IN • 
•POSNUM. SET UP » 
•FOR NO REPOSIT-» 
•IONING AND BKSP» 



•JK ».X. 

• B3« 

LIBERR X 

•NSTDND JQ» 

• DOHNDATE • 

• THE NEST LIST • 



MODNF1 

•*»«*03* 
•NSTDND 



•. AUTOLINK .» 


... . 










». .» 


X 


• NO 


••••• 




»JP » 




• E4» 












ALNKVR 


R31E X 




••••••Fl»»«******* 




• SEND • 




ERROR 




• MESSAGE » 





•»E4»»«*«* 

ALNKPR 
CHART JP 



SEND 

ERROR 

MESSAGE 



»H4»»»«» 
ESDCHK 
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• Al 

AC TR TN 



•••*A4«***« 

» ACTGO 



TURN OFF 

LOOK FOR 

ACTION FLAG 

SWITCH IN 

CONTROL FLAG 



•REPLACE SYSLST- 
* TAPE ROUTINE 
» WITH SYSLOG 
» ROUTINE 



GET 

OPERATION 
FIELD 



C2 ». 

.TURN OFF . 

.» OPERAND » 

.EQUALS NOMAP 



TURN OFF 

ACTION FLAG 

IN PRINT 

CONTROL FLAG 



MODIFY 

PRINT CCB 

FOR SYSLOG 



OPERATION 
FIELD 
. FOUND 



»•*• 05 »»»•»»«»• 
RETURN 



El ». 
ACTION 



RESET 

CARD 

ORIGIN 



INITIALIZE 

TO WRITE 

TAPE 



ACTSCN 

• POSRTN 



INITIALIZE 
TO OUTPUT 
HEADER 



•OVERLAY SYSLST-* 
» TAPE ROUTINE ♦ 
* WITH SYSLST- • 
•PRINTER ROUTINE" 



PRINT 

ERROR 

MESSAGE 



SVC TO 

OUTPUT MAP 

HEADER 



SKIP TO 
NEXT 
PAGE 



SVC TO 

SPACE TO 

NEXT 

PAGE 



*«*»J3*»»*«»»*» 

TURN ON 

ACTION SWITCH 

IN PRINT 
CONTROL FLAG 



SET UP TO 

WRITE AND 

SPACE 



SEND 

ERROR 

MESSAGE 
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INITIALIZE 

TO ADDRESS OF 

HIRST 

C/D ENTRY 



NNNNNNNNNNNNNNNNNNNNNNNNNN* 

* SCAN C/O • « 
» FOR LAST » » 

* ER ENTRY • « 





< 




ALNKCD .> 


. 


»D2»***»»» »*« 


D3 •. 






.* ANY » 


LOOK AT 




.♦ ER ENTRY 


NEXT 




*. TO PROCESS 


C/D 


INTRY 


* 


«. 





ER 
TYPE 
ENTRY 



.X. 

F2 • . 

.« IS ER •. 

PROCESSED 

AS NOT IN 

RL 



**«»E3«*»»««<"" 

SET C/D ENTRY 

TO INDICATE 

THIS 6R 

PROCESSED AS 

NOT IN RL 



••••»F3*««»*««»« 

* SET UP 

» AUTO LINK 
« MODULE 

* NAME FRO^ 
•THIS C/D ENTRY 



»»»»*E4»»«»»«*»* 
•ADD PHASE LOAD 

• ORIGIN TO 

• ORIGIN UF 

• PHASE 

» PROCESSOR 



GET RETURN 

ADDRESS FOR 

PHASt 



FIRST 
ER 

ENTRY 



SAVE ADCR 

OF THIS ER 

ENTRY IN 



•••*G3**o****»* 

GET ADDR 

OF NEXT LEVEL 

AND SET UP 

AUTO LINK 

LEVEL 



YES .* THIS ER «. 
...♦.ENTRY ADDRESS. 
••LESS THAN.* 
*. R6 .* 



Chart JP. 
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NSTUPD 



NEST 

TOO 

DEEP 



PRINT OUT 

CARD IN 

ERROR 



RESET 

NEST 

LEVEL 



RESET 

SUB MODULAR 

LEVHL 



INCREASE 
NEST COUNT 

BY ONE. 
RESET FLAG. 



DECREASE 

NEST 

COUNT 

BY ONE 



UUES 
COUNT 
LCUAL 
ZERO 



SET LIBRARY 

LUB CODE. 

TURN OFF 

PRIMARY INPUT 

FLAG. 



TURN ON 

PRIMARY INPUT 

FLAG. RESET 

INPUT LUB. 



SAVE 

PRESENT 

TAPE 

COUNT 



RESTORE 
NEST 
COUNT 



« GET TRUE ADDR 
•OF NEST ENTRY. 

• RESTORE NEST 
•POINTER. RESET 

• FIELD POINTER 



•K2*»*ft* 

RETURN 
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»A*««*»« 
IOKTN 



»»«*»F3<»<»»«.*<. 

• GET THE • 
» REPOSIT IONING • 
•ROUTINE ADDRESS* 

• IN A REGISTER * 



• SYSKES 

REPOSIT ION 

•TEST TO BE 

•.MADE .« 



SPECIAL 

CALL 

SVC 



Chart JR. I/O Subroutine 
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RETURN 
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•A2»«*»« 
LTESID 



CALCULATE 

ADDRESS 

CF LINKAGE 

TABLE ENTRY 



••«B4» .»•»*» 

CALCULATE 

ADDRESS OF 

CONTROL 

DICTIONARY 

ENTRY 



»*«*»C4«»»»**«»«« 

•MOVE RELOCATION* 

* FACTOR FROM * 

* THE CONTROL » 

* DICTIONARY * 
»TO A WORK AREA * 



D2 *. 

.•LINKAGE*. 
.•TABLE OVER-*. Yf:S 

.LAPS CCNTRCL .* 

*. DICTION- .• 
«. ARY .* 

"**NC 



•RELOCATION 

FACTOR 
«. MINUS . 



#**D5*»*»*»*» 

MAKE 

RELOCATION 

FACTOR IN 

REG A MINUS 



•»«*«E2**«*****»« 

• UPDATE NEXT • 

• AVAILABLE • 
♦LINKAGE ADDRESS* 

• TO CURRENT • 
•ADDRESS PLCS 3 • 



• •*F.3»**»* 

AEORT 



••*»E4**»*»«»*» 

RETURN PLUS 8 



LSETB X 

• MOVE CCNTRCL 
•DICTIONARY NUN 

• TO WORK AREA. 

• MOVE TYPE TO 

• ANOTHER AREA 



PUT CCNTRCL 

DICTIONARY 

NUMBER IN A 

REGISTFR 



NUMBER 
EQUAL 
ZERO 



NUMBER ». YES 
A MINUS ...... 

VALUE .« 



RETURN PLUS 
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•Al»»**« 
ESDRTN 



* MODULE * 
SUB MODULAR 

• .STRUCTURE.* 



•*»«C1*»****»* 

TURN OFF CON- 
TROL CARD 
ALLOWED FLAG 
AND SEARCH 
FLAG 



***D1*«**»*»* 
PUT ID ADDR 

AND ESID 

NUMBER IN A 

PAIR OF 

REGISTERS 



INPUT 

FROM 
SYSOOO 



• *««*C2»«*«**"»* 

•INDICATE MCDULE* 

* IN PROCESS. « 
« PREVENT RE- * 

* PROCESSING OF • 

• SAME MCDULE. « 



.* ESID * 

». NUMBER NOT 
•.PROCESSED.* 



.• ESID • 

•.NUMBER TO BE 
♦.BYPASSED .* 



ft«««*D4*»******* 

• STORE CONTROL 
•DICTIONARY NUM 
» IN VARIABLE 

• FIELD AS AN 

• ESID POINTER 



• C3» 
ESLBCD 



••••El««»«* 


•KH-C1 


K1 


CALCULATE • 


KE-D3 




NUMBER OF BYTES* 


KG-F3 




TO PROCESS * 


KF-D2 




MINUS 16 * 







ENO 

OF CARD 

IMAGE 



»*###G1********* 

• UPDATE NUMBER 

• OF BYTES 

• TO PROCESS 

• WITH RESULT 
•OF CALCULATION 



.♦ TYPE *. 
.* CODE ON *. 
•CARDS IN RANGE 
*. 0-5 .* 



LD 
POINT TO 

. COMMON 



SEND 

ERROR 

MESSAGE 



.» VARIABLE *. 

♦.FIELD TYPE IS. 

•. ER .• 



SEND 

ERROR 

MESSAGE 



Jl • 

TYPE 



B5* 



CNCALK 

• MOVE HEX FF 

• INTO A/0 

• FIELD OF 
•VARIABLE FIELD 



• GET CONTROL * 
•DICTIONARY NUM.* 
•ADDR AND ESD ID* 
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.» VAR- *. 
*IABLE FIELD*. NO 

TYPE IS SD .»... 
*. OR PC .* 



« SAVE CONTROL < 
•SECTION LENGTH. 
•SET UP ORIGIN. 



•••B4******»* 

PUT LONGEST 

LENGTH IN 

CONTROL 

DICTIONARY 



•••••B5 •••••••• 

• SET EUPDSW 

• TO FLAG 
•NONPROCESS SD. 

• FORCE SD TO 

• BE ER 



.* A/O *. NO • SEND 

• ON DOUBLEWORD.* X ERROR 

•.BOUNDARY .* » MESSAGE 



•••••C3 •••••••••• 

• COMPARE ESD • 
•ITEMS WITH CON-* 
•TROL DICTIONARY* 



• KE • 

* DL* 

EUPDLT 



• •••• 
•KA • 

• J4* 



SET UP 

OFFSET 

PHASE 



«D2*«*»» 
GETCD 



*KE * 
* Bl* 



.» MATCH » 
FOUND ON 
PHASE 
. NAME 



•*F1*»«»»»***» 



• TEST FOR SUB • 

• MODULAR LABEL • 

• IN NAME LIST • 

• TABLE • 



. 


• Bl* 




• • 


.X. 
G3 •. 

• 

COMMON 


ELBNCD 
'». NO 



C/D 
TYPE 
IS PC 



• C/D * 

TYPE IS NON 
•. COMMON .• 



»*••»« 3*»*»»»«*»» 

* COMPARE CARD » 

• IMAGE LENGTH • 

• FIELD WITH ♦ 
•CONTROL SECTION* 

* LENGTH • 



C/D 

TYPE IS 

ER 



* Cl» 
ELBINT 



SEND 

ERROR 

MESSAGE 
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.X. 
Bl •. 

C/D "•- YES 
TYPE IS .*.... 


ERR46 

• 
... X 


»*B2*»*«"i 

SEND 

ERROR 

MESSAGE 


• 


ELBDSD X 

•••••B3*» •*•*»»»» 

• EXTRACT • 

• PHASE NUMBER • 

• OF THIS • 


COMMON .« 
. .* 




• SD » 



*»*»C2 ••••••••• 



* VARIABLE • . 


YES » 




FIELD TYPE .« 


.... < 


GETCD 


•. IS NOT .» 

». SD .* 

». .* 


. • 


CHART JC 


X 




» NO 


••••• 
•KG • 
• Bl* 

» * 

ELBLD 




.X. 






Dl •. 






• » *■ 






• C/D ». 


YES 




TYPE IS .< 






•. ER .* 






*• .* 






• • • » 


X 




• NO 


••••• 
•KE * 
» Cl» 

• • 

ELBINT 




.X. 






El • . 






• • •• 






• C/D •. 


YES 




TYPE IS .« 






• . SD .» 


. 





.» SD ». 

.•PREVIOUSLY «. 
. PROCESSED . 



SD 

IN 

ROOT 



•KE • 
• Bl* 



ELBGSD 

*«*»*E3 **»••»»» 

• SET CONTROL 

• DICTIONARY 

• NUMBER TO 

• MINUS ONE 



Fl •- 

.• LD • 

OR LR 

ASSIGNED 



Gl ». 

.• ESID •. 

.NUMBER MATCH 

•.SD ID NUMBER 



• 1 • 

• * 
• ••» 



• ••• 

• • 

• 1 * 

• • 

• ••• 



SEND 

ERROR 

MESSAGE 



• KE • 

• Dl* 



.• ESD ». 




»*»»H2********* 


• A/O MATCH *. 


NO 


• 




SD A/O 




• 


GETCD 


• . •• 

• • •• 

». .• 


• 


* 


CHART JC 


X 






• YES 


« *»» 








• • 








• I • 






X 


• • 






• •••• 


• ••• 






• KE • 








• CI* 








• • 
















ELBINT 
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* VARIABLE *. 


NO 


FLD TYPE IS . 


*. .. . 


». ER .» 


. 








X 


* YES 


«•••• 




»KC * 




» Bl» 




* • 








EL BSD 


.X. 




CI *. 








• C/D ♦. 


YES 


TYPE IS 


*. .. . 


». ER .« 










X 


* NO 


••••• 




*KC « 




* Bl* 












EL BSD 


.X. 




Dl *. 








* C/D *. 


YES 


TYPE IS 


«... . 


*. COMMON .» 


. 








X 


* NO 


**••• 




*KE * 




« Dl* 












EUPDLT 


.X. 




El «. 




• * *• 




* C/D ». 


YES 


TYPE 




». MINUS .* 


• 



ELBELR .X. 




B3 *. 








.» C/D *. 


YES 


*. TYPE IS .*.... 


*. SD .* 




». .« 






X 


* NO 






«KE * 




* Dl* 












EUPDLT 


X 




»*»»«C3»****»**»< 




* OR CONTROL 




* DICTIONARY « 




» TYPE WITH A * 




* HEX 02 




••»•••••••*••»••■ 





*KE * 
* Dl* 

EUPDLT 



.X. 
Fl *. 

.* NAME «. 
*IN VARIABLE* 

FLD WITH IJ 
*. PREFIX .* 



•**»*G1********** 

* EXTRACT PHASE * 

* NUMBER OF * 
♦CURRENT CONTROL* 

* DICTIONARY * 

* ENTRY * 



HI 


• . 
















NO 


AUTOL INK 


















• . »* 




X 


* YES 




»*•• 








* 1 * 
















**•• 


.X. 






Jl *. 










PHASE 




NO 


NUMBER IN 




* ... . 


ROOT .* 


. 












X 


« YES 




»•*•• 






*KE * 
* Bl* 


X 




• • 


• «»* 




* 


* 


• 




ELBNCD 
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KC-D3 
KB-D3.F3 
KD-J1 
KH-Jl 



EUPDXT X 

•••••A3«««««»»*« 

» STORE C/D 

* NUMBER IN 

• LINKAGE 

* TABLE. UPDATE 

• ESID COUNT 



•••Bl******* 

ADD ONE TO 

C/D NUMBER. 

ADD 16 TO 

LAST C/D 

ADDRESS. 



MOVE VARIABLE 

FIELD TO 

CONTROL 

DICTIONARY 



•KB-J4 
KC-Hl.Dl 
KG-C1.E1 



KB-B4 
KC-E3 
KD-D1,B3,C3 



»»*»B3 ••••***•• 
TEST FOR 
CONTROL DIC- 
TIONARY AND 
LINKAGE TABLE 
OVERLAP 



NON 

PROCESS 

SD 



.* THIS *. 
.ESD A PROCESS. 
•. TYPE .• 



LD 

OR 
CM 



.•CONTROL*. 
.* SECTION *. NO 
LENGTH .*... 
•.RECEIVED .* 



**»F3»*»»**»* 

SET SWITCH 

ASSUMING 
ZERO LENGTH 



SEND 

ERROR 

MESSAGE 



•••••Gl«»»««»*«»» 

•LTESID JS» 

« GET C/D • 

• INFORMATION * 

• AND R/F • 


EUPDOK 

»*««»H2**»******* 

* SET UP ESD • 
....X* TYPE IN * 


G3 ». 

.•CONTROL*. 
.* SECTION *. YES 
*. LENGTH .*.... 
*. ZERO .* 

**. .** X 
• NO *••*• 

•KF • 
• B2» 

'. ESCNCD 
X 
•••••H3*» •*»•*•*» 

» RESET SWITCH * 

* AND CALCULATE * 

* UPPER LIMIT. » 

* SAVE RESULT « 


X 

• GETCD 

* CHART JC 


.X. 
HI «. 

.•" ESID "». NO 
«. NUMBER .*.... 




•.PROCESSED.* 

• • .» 


* LINKAGE TABLE • 





SEND 

ERROR 

MESSAGE 



J2 *. 
.« IS ». 

•THIS A NON *. NO 
PROCESS ESD .*... 



X 

*«»»K1»*»»»*»*» 
GETCD • 
CHART JC • 

» 


«*»»»K2 ***••***•» 

* FORCE LINKAGE • 
•TABLE ER ENTRY • 

* TO SD. MAKE • 

• C/D NUMBER • 

• MINUS • 
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»KE-H3,G3,C3 



ESCNCD X 

* PUT CCNTRCL 

* DICTIONARY 
» NUMBER AND 

* ADDRESS INTO 
•A PAIR OF REGS 



» ESID 

NUMBER 
». A MINUS 



C2 ». 

.* ENTRY *. 
• NOT •• YES 
ASSIGNED ...... 



GET CONTRUL 
DICTIONARY 
INFO AND R/F 



.* ALL *. 

•UNASSIGNED 

LD-LR 
*. DONE 



» CONTROL 

DICTIONARY 

*.INFO AND . 

». R/F .* 



ESDRf T 



HAKE FLAG 

INDICATE 

UNASSIGNED 



STORE 

CONTROL 

DICTIONARY 

NUMBER 
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• FORCE TYPE 

• ENTRY IN 
•VARIABLE FIELD 

• TO LR 



ELBNLR X 

»»*»*B3»««*«»**» 

• RESET 
•VARIABLE FIELD 

• TYPE FROM LR 

• TO LD 



C/D 


» ... . 


. TYPE IS .• 




». ER .» 






X 


• NO 






• KE • 






• CI* 


















ELBIN 


.X. 




Dl ». 








C/D * 


YES 


ASSIGNED AS 




. SD-LD- .• 




». LF 


.• 





•••••El 

• TURN ON POS- 
•SIBLE DUPLICATE 

• ENTRY SW. 

• RETAIN LR IF 

• NECESSARY 



• Cl» 

ELR INT 
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• HI* 
ELBNAS 



C/Q 

•. TYPE IS .» 

• . SD .• 



.X. 
F3 •. 

.* C/D ». 

.« NUMBER • 

•.IN LD EQUALS 

•. SD NUM- .• 

». BER .» 



NO 



• Bl» 
ELBLDR 



• El» 

ESDRET 



SEND 

ERROR 

MESSAGE 
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»**»B1»**»»»»» 

GET CONTROL 

DICTIONARY 

NUMBER OF SD 

THE LD 

BELONGS TO 



•C/D NUMBER * 

EQ VARIABLE 
♦.FIELD NUM.* 



» GET CONTROL » 
« DICTIONARY • 
•ADDRESS AND R/F» 

* OF ESD » 

• ITEM * 



GET CONTROL 

DICTIONARY 

ADDRESS OF 

SD ITEM 



• LABELS *. NO 
POINTED TO .»... 

*. ARE .♦ 

». EQUAL.* 



SEND 

ERROR 

MESSAGE 



RESTORE 

CONTROL 

DICTIONARY 

ADDRESS 



E.LBNAS X 

• ••••HI** »»•»••*< 

• GET PHASE 

• NUMBER OF < 

• CURRENT i 

• CONTROL DIC- < 

• TIONARY ENTRY ' 



C/D *. NO 
ENTRY IN .»... 
. PHASE .* 



••••Kl*«****»* 

TURN ON 

POSSIBLE 

DUPLICATE 

ENTRY SWITCH 



Chart KH. ESD (Part 8 of 8) 
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•GET C/D NUMBER, 
•ADDRESS, RELO- 
• CATION FACTOR 



ARE 

LENGTHS 

EQUAL 



•GET ADDRESS OF 
•NEXT AVAILABLE 

• POSITION IN 

• OUTPUT AREA 



• HAS • 

ESID BEEN 
». PROCESSED. • 



SEND 

ERROR 

MESSAGE 



OUTPUT 
AREA 
EMPTY 



THIS ESID • 
TO 8E 
. IGNORED • • 



»*»»D3»» »*•»♦* 

PUT LENGTH 

OF INCOMING 

RECORD IN 

CONTROL INFO 



ADD ASSEMBLED 

ORIGIN TC 

RELOCATION 

FACTOR 



«»*««F3*«»*«*>»«« 

•MOVE TXT RECORD* 
•TO OUTPUT AREA.» 
•UPDATE POSITION* 

• AND RECORD • 

• NUMf3ER • 



OUTPUT 

TEXT 
RECORD 



Gl ». 
.• IS ». 

.• ADDRESS • 
.WITHIN PHASE 
». LIMITS .* 



SEND 

ERROR 

MESSAGE 



RESTORE 

CONTROL 

INFORMATION 



PICK UP 
ADDRESS OF 
TEXT BUFFER 



Chart KJ. TXT 
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»A1***»* 
RLDRTN 



NOP RLSW1 

AND CHANGE 

RLHRIT TO 

BRANCH 



»*»##B3*»*»* 

» CHANGE 

» RLWRIT 

• TO NOP 



END 

OF RLD 

CARD 



IS 

RLD 

WANTED 



RLSTP X 

•••«*C3»««»*»*»* 

•LTESID JS 

•GET C/D NUMBER 

* AND ADDRESS, 

* R/F FOR P-PTR 



»##»*D1*»* ******* 
•INITIALIZE REG • 
•WITH ADDRESS OF» 
♦ITEM TO PROCESS* 
• AND COUNT OF » 
•BYTES PROCESSED* 



UPDATE TOTAL 

RLD BYTE 

COUNT 



• HAS •. 

ESID BEEN . 
•.PROCESSED.* 



SEND 

ERROR 

MESSAGE 



.* DOES *. 
R POINTER *. NO 
POINT TO .»... 



CHANGE 

RLSWl TO 

BRANCH 



.»DC PORE*. 
•ITEMS BELCNG . YES 
. TO THESE .*.... 
». POINTERS .* 



»«**F3******* 

SET SWITCH * 

FOR PASS 2 TO« 

USE R/F PLUS 

ASSM ORIGIN • 

TO RELOCATE* 



»*«*»GL*********» 


•*«»»G2 ******* 


»LTESID JS* 


« 




* CHANGE 


*GET C/D NUMBER » 


* RLSW 1 


* AND ADDRESS, * 
» R/F FOR P-PTR * 


» TO NOP 




«»•*»»»»•»*•****• 





HAS *. NO 
ESID BEEN .«... 
.PROCESSED.* 



.* IS *. 

THIS ITEM » 
TO BE 
.BYPASSED .» 



.* DOES ». 
P POINTER 
POINT TO 

. SD/PC . 



SEND 

ERROR 

MESSAGE 



Chart KK. RLD (Part 1 of 2) 
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PICK UP 

ADDRESS OF 

RLD 

BUFFER 



C3 ». 


»»»»»CA»»«*«»»*»» 




•GET ADDRESS OF • 


ARE ». YES 


♦NEXT AVAILABLE * 


LENGTHS .* 


..X» POSITION IN * 


EQUAL .* 


» OUTPUT * 




* AREA • 






» NO 


• 




X 




»»»» 






.X. 


* 3 » 


D3 ». 






• ••» 


OUTPUT ». NO 




AREA ...... 




EMPTY .» 





»»»»E3»*»»««*»*« 

PUT LENGTH » 

OF INCOMING » 

RECORD IN * 

CONTROL INFO » 



i»»»»G3«*»»»»»*»» 


••••*»G4******** 


• MOVE RLD * 




RECORD TO » 


* OUTPUT 


» OUTPUT AREA. » 


RLD 


UPDATE POSITION* 


• RECORD 


tAND RECORD NUM » 





RESTORE 

CONTROL 

INFORMATION 



Chart KL. RLD (Part 2 of 2) 
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••••A I* •••••••• 

• ENDRTN • 



SCAN C/D FOR 

UNASSIGNED 

LD/LR 



• RESET SWITCH 

• TO ALLOW ) 

• CONTROL CARDS 



• LABEL « 

ON THIS END 
«. CARD .* 



SEND 

ERROR 

MESSAGE 



*«»*C2* •»••»•* 

SET UP NEW 

AND RETURN 

POSITION. 

RESET FLAGS 



* GETCD 

* CHART JC 



DESTROY 
LINKAGE 
TABLE 



RESET 

NEST 

FLAGS 



X 
• 1 



b*»»»D3*» *»»»»**• 
•LTESID JS* 

« GET C/D * 

• NUMBER AND « 
« ADDRESS * 



••*»•••• 



.» PRIMARY *. 

*. INPUT .« 

*. .* 

*. .» 

*. .» 

» NO 


YES 

X 

• *»a 

I 1 * 

a • 

• *•« 


* 


SEND 

ERROR 

MESSAGE 


» 
X.. 

• 


YES .« ESID 

». NUMBER NOT 

•.PROCESSED 

»• .* 

* NO 


X 
•••••Fl* »»*»*»»** 

• DOWNDATE • 

• THE NEST * 

• LIST • 




X 
•*»*F2****** 
» GETCD 
* CHART JC 

• 


• 


.X. 
F3 *. 

.** BYPASS 

*. THIS ESID 
». NUMBER 










*. .♦ 



SEND 

ERROR 

MESSAGE 



• GETCD 

» CHART JC 



Gl ». 

.* * 

AUTOL INK 



SET TRANSFER 

SWITCH. SAVE 

TRANSFER 

INFORMATION 



•••*»F5*****»**»b 

» CALCULATE * 

* NEXT POSSIBLE * 

» PHASE * 

« ORIGIN » 



* SET SWITCH 

* FOR CONTROL 
•SECTION LENGTH 
» PROCESSED 



•**»«H1 •»•**»••»« 



* TURN ON 


* 


• END AUTOLINK 




• FLAG 


• 


* 


• 


• »•« I 








» 1 «... 








•»•• . 




PRC .X. 




Jl ». 




• • •• 




.» TRANSFER • 


. YES 


». ADDRESS 


• •■... 


•.ACCEPTED -• 


. 


». ■* 




*. .• 


X 


• NO 


• »• 




• 




* 3 








*•• 


X 




•••»*K 1»» »»»»»» 


i» 




• 


• CANCEL 


• 


• PREVIOUS 


• 


• TRANSFER 


* 




• 



WAS 

THERE A 

LABEL 



CLEAR CARD 

EXCEPT FOR 

LABEL 



TURN 

OFF 

FLAG 



Chart KM. END 
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•••••»*•• 



PRINT 

THE 
CARD 
IMAGE 



CONVERT 

ORIGIN AND 

REARRANGE 

CARD FIELDS 



CONVERT TEXT 

OF REP CARD. 

KEEP A 

BYTE COUNT. 





F2 ». 


















. NO 


* SEND • 




CHARACTER IS 




...X ERROR 




». A BLANK .» 




» MESSAGE • 




• • •* 
















» YES 








X 








»«»»G2*»»»«»«* 




X 


* 






•••«G3»» »»••»»» 




STORE BYTE 




• » 




COUNT IN 




• GET CD * 


• 


CARD IMAGE 


* 


* CHART JC * 


If 





Chart KN. 



REP 
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• A 1** »»»*»»» 
PHSRTN • 



•A3***** 

ABSCHK 



Bl *. 
.» * 

IN 

AUTOL INK 



SEND 

ERROR 

MESSAGE 



•»»»#B3***»»»**** 
» GET STOP • 
•CHARACTER VALUE* 

• GET OPERAND. * 
•ZERO CHECK THE* 

• FIELD * 



•»*»»C1** ••••*••* 
•GET ADDRESS OF • 

• PHASE LIST • 

• MINUS PHASE • 
•LENGTH INTO REG* 



••••C2 ********* 



FIELD 

TOO 
BIG 



SEND 

ERROR 

MESSAGE 



RESET 

AUTOL INK 

FLAG 



FIELD 
TOO 
BIG 



•***E3*******»* 

CLEAR THE 

HEADER, 

GET ADDRESS, 

CONVERT FIELD 

TO PACKED HEX 



FIRST 

OPERAND 
BLANK 



SEND 

ERROR 

MESSAGE 



SIGN 
EQUALS A 
. MINUS 



CHANGE XXXX 
HEXADECIMAL 
NUMBER SIGN 
TO A MINUS 



.* COMMA «. NO * 

.FOLLOWS FIRST.* X 

*. OPERAND .* 



SEND 

ERROR 

MESSAGE 



GET BRANCH 

ADDRESS VIA 

TABLE LOOKUP 



ORIGIN 

FIELD IS 

.ABSOLUTE 



BRANCH TO 

ADDRESS 
SPECIFIED 



* PERFORM * 

* TABLE LOOKUP * 

* FOR CORRECT * 
•BRANCH ADDRESS * 



•*K1****»*» 

BRANCH TO 

ADDRESS 
SPECIFIED 



DEPENDING ON DELIMITER 
GO TO PHSFIN CHART LC 
NOAUTO CHART LB 
ILLPHS CHART LB 
QALCHK CHART LB 
ABSCHK CHART LA 



Chart LA. PHASE (Part 1 of 5) 
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•••»Al»*»«»»» 

QALCHK 



«A3»*»»» 
NOAUTO 



*A5«**»* 
ILLPHS 



GET THE 

NEXT 
OPERAND 



GET THE 

NEXT 
OPERAND 



SEND 

ERROR 

MESSAGE 



MOVE FIELD 

INTO A 

WORK AREA 



C3 •. 

-•* **. NO 

». AUTOLINK .* 

*. • » 

*• .» 
• YES 

X 

»**«»D3*«*»****»« 

• * 

* TURN ON « 
« NOAUTO « 

* FLAG * 

• * 


•»**»C 4* ••*•*• 

« SEND *• 
...X* ERROR 

• MESSAGE » 


** 


X 

GETCD 
CHART JC 









SEND 

ERROR 

MESSAGE 



•**«E3*«***«« 



PERFORM 

TABLE LOOKUP 

FOR BRANCH 

ADDRESS 



GETCD 
CHART JC 



•*G1»»****» 

BRANCH TO 

ADDRESS 
SPECIFIED 



PHSFIN CHART LC 
NOAUTO CHART LB 
ILLPHS CHART LB 



Chart LB. PHASE (Part 2 of 5) 
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SYMBOL 
IS A 

BLANK 



COMPARE *. 
NAME WITH . 
.$$ A TYPE.* 



SEND 

ERROR 

MESSAGE 



ASSUME END 
OF SUPERVISOR 
START ADDRESS 



»*»»»E2********** 
•MOVE HEX Dl TO « 

* ROOT NO. ZERO » 
. X»C/D NUMBER. SET* 

* ORIGIN TO END * 

* OF SUPERVISOR * 



ASSUME END 

OF PREVIOUS 

PHASE FOR 

START ADDRESS 



»*»»«E5»*»*»»»«» 

♦ SAVE POSITION 

* IN CONTROL 
•DICTIONARY AND 

• ASSEMBLED 

♦ ORIGIN 



SYMBOL 
IS AN 
.ASTERISK 



• TEST CONTROL 
•DICTIONARY FOR 

• DUPLICATE 

• NAMES 



GET 

RELOCATION 

FACTOR 



ISDISP 
YES 



•ADD RELOCATION 

• FACTOR TO 

• ASSEMBLED 

• ORIGIN 



.• IS •. 

DUPLICATE 

A PHASE 

. ENTRY . 



SEND 

ERROR 

MESSAGE 



•••••J 3 **•••*•••• 

•SEARCH CONTROL • 

• DICTIONARY • 

• FOR LABEL • 



SEND 

ERROR 

MESSAGE 



• Bl» 

• • 

CHQUAL 



••K2«*«*«* 

GETCD 
CHART JC 



Chart LC. PHASE (Part 3 of 5) 
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••••• *»LC-B3|G3 



» ADD • 
•DISPLACEMENT T0» 
* THE BASE • 



SEND 

ERROR 

MESSAGE 



••••»D1 






GET 


PHASE • 


♦NUMBER 


CONTROL * 




DICTIONARY • 




ENTRY 


BELONGS » 


* 




TO * 



QUALIFIER *. NO 
MATCH .»... 
. PHASE .» 



LD/LR 


». YES 


FOUND 














X 


• NC 






• LC * 




* B5» 




• • 








N0DUPLG4 


X 




E2»«*««*»*»*> 


SEND 


# 


ERROR 




MESSAGE 


* 



••*D3»»»»*>« 

PUT PHASE 

ORIGIN ON 

DOUBLEWORD 

BOUNDARY 



BUILD CONTROL 

DICTIONARY 

IMAGE IN 

LOCATION 

SYMBOL 



FIRST *. YES 

PHASE 

CARD .• 



*#H3«***«» 
TRFRAD 
CHART LG 



Chart LD. PHASE (Part 4 of 5) 
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, # 






« • «LD- 
» LG- 


G3 
J5 


NEWPHS X 

« GET NEW 
» PHASE ORIGIN 
« AND SET 
» AUTOLINK FLAG 


• : 



♦UPDATE CONTROL 

* DICTIONARY 

* NUMBER 

» AND ADDRESS 



► •.*D2*"»****« 

GET CONTROL 

DICTIONARY 

NUMBER OF NEW 

PHASE AND NEW 

PHASE NAME 



••••E2*»*»«»»* 

INCREASE 

PHASE COUNT 

SET UP PHASE 

HEADER 



SVC 

WRITE 

PHASE 

HEADER 



Chart LE. PHASE (Part 5 of 5) 
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•Al»»«** 

TRFRAO 



.TRANSFER . 

ADDRESS ». NO 
ACCEPTED 



SEND 

ERROR 

MESSAGE 



SET 

ERROR 

SWITCH 



* 


»**»C1»»»»***»*» 


X 
••••C2*»««»*««« 


* 


SET HIGH CORE * 






FROM PSEUDO • 


» GETCD 


* 


PHASE ORIGIN » 


« CHART JC 


* 


*•*•»•••»••••••* 





» STORE END OF » 

• PHASE ADDRESS » 
•IN CONTROL DIC-» 
•TIONARY AS HIGH* 

• CORE ADDRESS » 



* RESET PHASE 

* ADDRESS AND 
•CLEAR TRANSFER 

* ADDRESS 



ENTRY • 
CARD 
.PROCESSED.* 



*F2*«««» 
ABORT 



••••Gl «»»*»»»» 

RESET SWITCH 

SETUP ESID 

TO CHECK 

CONTROL 

DICTIONARY 



MOVE 

ASSEMBLED 

ORIGIN INTO 



•PUT C/D NUMBER 

• IN X15. BUILD 

• HEADER AND 

• RECORD 



SCAN CONTROL 

DICTIONARY 

FOR TRANSFER 

LABEL 



.» SD OR • 

PC 

*«*NO 


. YES 




X 

SET UP CONTROL * 

DICTIONARY • 

NUMBER • 


X 

»LH • 
* B2* 


!x 



Chart LG. Determine Transfer Address 
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•Al*»»*» 
ENTRTN 



ENTRY 
WITHIN 
MODULE 



•*»»»B2*»«»»»**« 
•LOAD REGS WITH 

• BOS AND 
» CONTROL 

• DICTIONARY 
» INFORMATION 



• END 

OF CONTROL 
•DICTIONARY 



CTDOVR 

***»*B 4* ••••••*•* 

» SET OVER- » 

* RIDING » 

...X* TRANSFER » 

•ADDRESS TO ZERO* 



GET OPERAND • 



• END 

OF CONTROL 
•DICTIONARY 



UPDATE 

CONTROL 

DICTIONARY 

ADDRESS TO 

NEXT ENTRY 



STRXFR X 

*»*#»C5 ••••»••* 
» SET UP 

* TRANSFER 
...X» ADDRESS WITH 

* VALUE OR 

* ZEROS 



•UPDATE CONTROL • 

• DICTIONARY • 
•ADDRESS TO NEXT* 

• ENTRY * 



• CONTROL • 

DICTIONARY 
•.IS PHASE .* 



•»«**E3**«***««» 

» ADD LENGTH OF 

• COMMON TO 

• LOW AND HIGH 
•CORE ADDRESSES 



• SEARCH 

• CONTROL 
•DICTIONARY FOR 

• MATCHING 

• LABEL 



POSITION 

FILES 

FOR PASS 2 



* 


»»«»E5«*«»*»»*« 


LABEL ». NO 


• FETCH 


FOUND .*.... 


* PASS 2 


. * . 


• CHART MA 







GET LABEL 
USED AS 
OPERAND 



•*««F2«*»*«»*» 

LENGTH OF 

COMMON TO 

ASSEMBLED 

ORIGIN FIELD 



SET SWITCH 

TO ALLOW 

RETURN FROM 

PHASE PROCESS 



ADD LENGTH 

OF COMMON TO 

PREVIOUS 

ADDRESS 



**##*G 4* »»•«*»*# 
•GET RELOCATION 

• FACTOR 

• AND ADD TO 

• ASSEMBLED 
» ORIGIN 



»»*»»G5«»»******« 

• SET SW TU » 

• IGNORE * 
•TRANSFER LABEL • 

• ZERO OVER- * 
•RIDING TRANSFER* 



».H1****»» 

TRFRAD 

CHART LG 



ADD LENGTH 

OF COMMON TO 

RELOCATION 

FACTOR 



SEND 

ERROR 

MESSAGE 



SEND 

ERROR 

MESSAGE 



•*«*»K2*»»*»*«»» 

• UPDATE EOS 

» AND LINKAGE 

• EDITOR 
•COMMUNICATIONS 

• REGION 



Chart LH. 



ENTRY 



Charts 
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»«»«A2>>****** 

tLNKEDTF 

PASS 2 ENTRY 



»»»A4»**»***» 

SET C/D 

POINTER TO 

ADDRESS OF 

FIRST ENTRY 



•NNNNNNNNNNNNNNNNNNNNNNNNNM 

* • FIRST C/D * 

* * ENTRY IS • 

* » HIGHEST IN * 

* * CORE » 



ANY ». NO 
ENTRIES .•... 
IN C/D .* 



CMPDLP X 

•••••B 4» •»»»»»»»« 

* IF C/D SPEC I- * 

* FIES SUPERVISOR* 
» SAVE ADDRESS * 

* OF END OF * 
» SUPERVISOR » 



*MF • 
« K4« 


*- .• X 

• YES ••*• 






















* 


» I • 














. »«•• 














. X. 






X 








C2 *. 






•».*«C4********** 








.« IS ». 






• IF C/D SPECI- • 








.* MAP • . YES 






• FIES STORAGE • 








». REQUESTED 






• PROTECT SAVE « 














• ADDRESS OF * 








«. .» . 






•PROBLEM PROGRAM* 








*. .• X 














• NO • ••♦» 














• ME • 














• Al« 




























............ .X. • 














PRTMAP 






DECSON .X. 












D2 •. 
























.• HAVE •. NO 






• CONDENSE • 






». ANY ERRORS 






♦ C/D ENTRY » 






•.OCCURRED . * 






• TO 8 BYTES • 


















». .» X 










» 1 « 


• YES •»•• 






















• ••• 


• 3 » 














• ••• 














ERR085 .X. 






.X. 








E2 *. 






E4 ». 






















YES .• ERROR •. 






.* END •. NO 








......*. ON A .» 






». OF .* 










•.$$ PHASE .♦ 


•. C/D .» 










































* NO 






• YES 










EXELWR X 






CMPDVR X 


X 


BORT X 


**»*»»F 2» ••»»•••••• NNNNNNNNNNNNNNNNNNNNNNNNNN»»**»F4*»»»»»»«»* * 




•*««F1>»******* 


PRINT i 






» * * 




« SVC I • 


• ERROR • 


• LAST C/D • 


• SAVE NEW • 


* DECREMENT 


•FETCH SLNKEDTL • 


MESSAGE 


» ENTRY 


[S • 


» ADDRESS OF * 


• C/D 


* PASS A * 


» ON • 
SYSLOG 


• LOWEST 

* CORE 


IN • 


• LAST C/D • * 

• ENTRY • 


* POINTERS 













»»»««»H2»»«»«»»»»»« 

• GET OPERATORS • 

RESPONSE 

• TO • 

ERROR 



J2 «. 

'response 



#»»**K2****«*« 

• SVC 13 • 

• TURN ON BIT * 

• 2 OF JBCSW1, 

• INDICATES L/E« 
•OUTPUT PRESENT 



» STORAGE *. 

PROTECT 
•.SPECIFIED.* 



.• WAS • 

. SUPERVISOR 
•.SPECIFIED.* 



*K3* 
SVC 14 

EOJ 



START 

.X. 

J't NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 

.* IS •. •// OPTION CATAL* 

BIT 3 OF •. NO • CARD HAS BEEN * 

JBCSW1 ON » READ. COMRtG * 

.♦ . »DISPLACEMENT 57* 



«»***K4*»»« 

* SVC b 
« MODIFY COMREG 

* END OF SUPER- 
VISOR AND PROB 
♦PROG ADDRESSES 



•NNNNNNNNNNNNNNNNNNNNNNNNNN 

» DISPLACEMENT * 

* 8 AND 10 » 

• IN COMRtG * 



Chart MA. Condense Control Dictionary 
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MA-H4,J4,K4 



START X 

»«»»*A2 *»*»**» 

• INITIALIZE 
» CCW WITH 

* LENGTH OF 

* CORE IMAGE 

• RECORD 



GET 
ESIO 
COUNT 



X 
•••B2*«»«»«*« 

USING RCI, 

POSITION 

SYSOOl 

AFTER FIRST 

TM 



•••»»B4»««»«» 

• COMPUTE 
« ESO 

• ENTRY 

• ADDRESS 



»«»*»C 2 *•*****• 
» USING RTZERO, 

• CLEAR 

• OUTPUT 

• AREA 



FIRST •. NO 
TIME .*... 

THROUGH .* 



END 

OF TXT 

BLOCK 



•••••D4*« »»•»•*»* 
* GET PHASE * 
•NUMBER, HIGHEST* 
•ADDRESS, AVAIL-* 
•ABLE, AND PHASE* 
» ORIGIN • 



*«»E2*»*»*»» 

UStfNG RTXT, 

£EAD A TXT 

BLOCK FROM 

SYSOOl 



POINT TO 

NEXT LOGICAL 

RECORD IN 

TXT BLOCK 



USING RTADD < 
GET NUMBER OF 
OUTPUT BLOCKS 





. 


<. 








F2 










• * 








• 




* 


. YES 




T 


H 






























»*NO 
< 




X 

• MD • '. 

• B4* 

ENDPH2 '. 




f*G2» 


•••••••» 






POIN 


TO 






FIRST 


.OGICAL 


* 






RECO 


ID IN 








TXT 


3LOCK 


* 
• 








X 







*»»**F 4* •*•*** 

* COMPUTE 

* BYTES IN 

* LAST BLOCK 



• ••»*G4»*»»*»«« 

• USING RELRT, < 
•ADD RELOCATION 

• FACTOR TO 

• DESTINATION 
» OF TXT 



GET SOURCE, 

LENGTH. AND 

DESTINATION 

OF TXT 



•IS THIS*. 
ADDRESS 
OUTSIDE 
LIMITS . 



USING RTADD 

GET 

BLOCK NUMBER 

FOR THIS 

TXT RECORD 



ADD I TO 

TXT RECORD 

COUNT 



• B2» 
XFR 



.* ZERO 

*. LENGTH TXT 

*. CARD 



Chart MB. 



Read TXT Records 
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A4 



• X. 



NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 

* COMPARE BLOCK • .• ». 

• NU^ FOR THIS * .» LOW, 
•TEXT RECORD TO * *. BACKWARD 

« BLK BEING AS- • «. ORIGIN . 

•SEMBLED IN CORE* *. • • 

** * ** **»*YES 



HIGH, 
FORWARD 
ORIGIN 



TURN ON 

BACKWARD 

ORIGIN 

SW5 



»*B3»***»* 

TURN OFF 

BACKWARD 

ORIGIN 

SW5 



.* HAS *. 

PHASE END 
CARD BEEN 
. READ 



ON CURRENT 

OUTPUT 

TAPE 



C4 •. 

.» WILL • 
» COMPLETE 

TXT FIT IN 
•. BLOCK 



««»»C5» 

UPDATE TOTAL 

CURRENT 

OUTPUT 

BLOCK COUNT 



INCREASE 

CURRENT 

OUTPUT BLOCK 

COUNT BY 1 



GET BYTE • 

COUNT TO FILL • 
OUTPUT BLOCK » 



BACKWARD 

ORIGIN 

SW5 



.X. 



F2 
.• DOES • . 

YES .« CURR TAPE • . 

HAVE MORE BLKS 

•.THAN ALT .• 
•.TAPE .• 

"•*NO 



MOVE TXT 

TO OUTPUT 

BLOCK 



»»«*»Gl*«****«i 

» FIND MINIMUM 

• NUMBER OF VALID) 

* BLOCKS ON 

• EITHER 

* OUTPUT TAPE 



*»#Hl*»»«»»»< 

BACKSPACE 

ALT OUTPUT 

TAPE TO 
MIN, ~ 



.» THIS BLK ». N 
.ALREADY WRIT-.*. 
•TEN ON ALT • 
•.TAPE .• 





.• WAS • 








• COMPLETE 


*. 


YES 




TXT 








». MOVED 


• 


. 
















X 




• NO 




• MB 

• D2 

GET 




X 






• 




» 






POINT TO 








REMAINDER 








OF TXT 






* 




* 





N, VALID 
BLOCK 



...Jl. ..*„... 

BACKSPACE 
CURR OUTPUT 

TAPE TO 

MIN, VALID 

BLOCK 



•»»H2*«««*»»« 


USING RCI, 


READ BLOCK 


FROM ALT 


TAPE 



«*«*H3»»»»»»*» 

USING RTZERO, 

CLEAR 

OUTPUT 

AREA 



INCREASE 

NUMBER CF 

SLOCK IN CORE 

BY 1 



ENDBW2 

..*,.K1». ........ 

• SWITCH OUTPUT • 

• TAPES AND • 
•INCREASE NUMBER* 

• OF BLOCK * 

• IN CORE BY 1 • 



Chart MC. Write Core Image Blocks 
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• MB * 

• F2* 

* « 



GET TRANSFER 

ADDRESS FROM 

RECORD 



ENDPH2 X 

*»»#«B4**»*»»»*» 
•GET OVERRIDING 

• TRANSFER 

• ADDRESS FROM 

* LNKEDT COMM 

* REGION 



►NNNNNNNNNNNNNNNNNNNNNNNNNN 

► * SPECIFIED • 

► * BY ENTRY » 

> »LNKEDT CONTROL • 

> * CARD * 



• TRANSFER 

ADDRESS IN 
«. XFR 
•. REC .* 



C4 *. 

.» WAS ». 

ADDRESS 
SPECIFIED 



•*»»D2 •*»»•*•• 

GET TRANSFER 

ADDRESS FROM 

PHASE C/D 

ENTRY 



♦»»D4*»»»*»»» 

GET ADDRESS 

OF FIRST 

C/D ENTRY 

FROM LNKEDT 

COMM REGION 



• USING RELRT, * 
•ADD RELCCATION • 

• FACTOR * 
» TO ADDRESS * 



•»«»»E 4* »»»»»»*♦ 

• MOVE 

• OVERRIDING 
•XFR ADDRESS TO 

• FIRST PHASE 

• C/D ENTRY 



••••F2********* 

MOVE^ TRANSFER 

ADDRESS TO 

PHASE 

C/D ENTRY 



«»«*F4»«*»*»»« 

WTM AND BKSP 

1 TM ON 

CURRENT 

• OUTPUT 

TAPE 



NNNNNNNNNNNNNNNNNNNNNNNNNN* 

• TO INSURE • « 
•COPYING RECORD * * 

• REMAINING • • 

• ON ALT TAPE • • 



^•«G2««»*«»»* 
MOVE MAXIMUM 
BLOCKS AVAIL- 
ABLE PLUS 1 
TO BLOCK IN 
CORE COUNT 



REWIND 
SYS002 

AND 
SYSOOl 



••H4****»*« 

BACKSPACE 

1 TM 



STORE UNIT 
CONTAINING 
TXT OUTPUT 
FOR PASS 3 



* SVCL 
•FETCH $LNKEDTH 

• PASS 3 



Chart MD. Get Transfer Address 
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*• 


SET UP « 




LINES/PAGE * 




AND GET » 




DATE FROM • 


#» 


COMM REGION • 



* OVFLOW Ml 

* PRINT FIRST 

* HEADING AND 

* DOUBLE SPACE 



'. MAPCST X '. 

• ••••A4»«*>»»«»> 

'. » SCAN C/D * '. 

• FOR SD/PC • 

• ENTRIES » 


r x 


x 1 







LOOK AT 

NEXT C/D 

ENTRY 



LOOK AT 

FIRST C/D 

ENTRY 



LOOK AT 

NEXT C/D 

ENTRY 



LOOK AT 

FIRST C/D 

ENTRY 



••••Fl«»*«»»»»* 

SET UP PRINT 

LINE, CONVERT 

LOAD ADDRESS 

AND LENGTH 

TO HEX 



PRINT COMMON 
TYPE LINE 
ON SYSLST 



DMD .X. 

F2 •. 

.* DOES *. 

.•THIS PHASE * 

•.OVERLAY ROOT 

». PHASE .» 



• »*G2»*»*«» 

SET SWITCH 
TO PRINT 

ROOT 
OVERLAYED 



.X. 



H2 
.* IS «. 

•THIS PHASE 
A PART OF 

•. ROOT 
». PHASE.* 

*»*YES 



IDENTIFY 

AS 

ROOT 



IS IT 

A SD/PC 
ENTRY 



«*»»EA*» «*»•»»»* 

USING XTPHNO, » 

EXTRACT • 

PHASE NAME • 

FROM ENTRY ♦ 



F4 •. 

.♦ DOES ». 

•THIS ENTRY 

BELONG TO 

». PHASE . 



*»»««G4»»*»»»»»»« 

• MODIFY • 

• RELOCATION * 

• FACTOR • 



••»»H4»* *••»•»» 
SET UP CSECT 
PART OF PRINT 
LINE, CONVERT 
R/F AND ASSM 
ORIGIN TO HEX 



LOOK AT 

NEXT C/D 

ENTRY 



.X. 
F5 ». 

♦ IS 
IT A 
PHASE 
ENTRY 



PRINT 

PHASE LINE 

ON SYSLST 



MAPHNM 

•••*»K2********< 

• SET UP PRINT 

• LINE, CONVERT 

• ORIGIN AND 

• LAST BYTE 
•ADDRESS TO HEX 



Chart ME. MAP (Part 1 of 2) 
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LOOK AT 

FIRST C/D 

ENTRY 



LOOK AT 

FIRST C/D 

ENTRY 



LOOK AT 

NEXT C/D 

ENTRY 



.* WAS *. 

ROOT 
OVERLAYED 



LOOK AT 

NEXT C/D 

ENTRY 



Fl «. 

.» DOES «. 

ENTRY 

BELONG TO 

. THIS 

*. CSECT. » 

* . .* 

* YES 



**«»#G1*»»****»» 
* SET UP CSECT 
« ENTRY LINE, 
« CONVERT 
» ASSEMBLED 
•ADDRESS TO HEX 



ROOT 

OVERLAYED 

MESSAGE 





» DUPLICATE 

ENTRY 
*. LABELS . 



POSSIBLE 
INVALID ENTRY 
POINT MESSAGE 



EXTNPR 

»»»»#G3 
•PRINT 



PRINT EXTRN 
ENTRY LINE 
ON SYSLST 



FLAG LD 

ENTRIES WITH 

• AS BEING 

UNMATCHED 



• INVALID 

• TRANSFER LABEL 
•IGNORE MESSAGE 



PRINT CSECT 
ENTRY LINE 
ON SYSLST 



I • 



.* ANY *. 

•ZERO LENGTH*. 

CSECT IN .* 
*. INPUT .« 



CSECT OF 

ZERO LENGTH 

MESSAGE 



DECSON.X. 
X 

*MA » 
* D2» 
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♦ PRINT 



SET UP 

CCW TO 

PRINT 





» IS « 


. NO 




EXTRA SPACE 
•.REQUESTED.* 




•** 








X 




» YES 




* 1 

• •• 




X 






# 




» 




• 


SET UP 


* 






CCW FOR 


• 






1 SPACE 






• « 




* 





HEADING • . NO 
TO BE .»... 
PRINTED .* 



SET UP 

CCW FOR 

SKIP TO 1 



SVC 

EXTRA SPACE 

OR SKIP 

TO 1 



»***«H3 ••*••••••* 

• REQUEST * 
» EXTRA SPACE * 

• BEFORE NEXT * 

• PRINT » 



SVC 

PRINT LINE 

OR WRITE 

TAPE 



REDUCE 

LINE COUNT 

BY 1 



ABORT 

••••F5 ••••••*•• 

* SVC 1 
•FETCH *LNKEDTL 

• PASS 4 



LINE COUNT 



Chart MG. PRINT Subroutine 



*J4«»«»* 
RETURN 



RESTORE 

LINES/ PAGE 

COUNT 
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••••A2****** 
» INITIAL 



* SAVE LOGICAL « 
•UNIT CONTAINING* 
» TXT CARD • 

* INFORMATION » 



OPEN X 

»»»»»»C 2* ********** 

POSITION 

• RLD AND WORK • 

TAPES TO 

» BEGINNING * 

OF FILE 




WRITE 

HEADER 

LINE 



*»*»D5***** 
* ABORT 



»»«»»E 2 ********** 

* GET NUMBER • 

* OF PHASES * 

* PROCESSED * 



••*»F2**** ••••*• 

ADD NUMBER • 

OF PRINT * 

LINES NEEDED * 

FOR HEADER * 

* 



G2 *. 

.•COMPARE*. 
* TO NUM OF » 

PRINT LINES 

«. REMAIN- .* 

*. ING .* 



UPDATE 
LINE 
COUNT 



*G5***** 
ABORT 



* HIGH 



* 2 



MOVE DATA TO 

COMMUNICATION 

REGION 



SETCDE 

•**«»K2* ******* 

* SET CODE 

* TO SKIP TO 

* CHANNEL 1 

* BEFORE PRINT 



SET CCW 

FOR SKIP 

TO CHANNEL 



RESET CCW 

FOR NORMAL 

PRINT 



• POSITION 
PAPER 
• ON 

PRINTER 



X 

* » 

* 1 * 
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•A2 • 

COMPUTE 



* COMPUTE 

• RLO INPUT 
•BUFFER ADDRESS 



•ESTIMATE NUMBER* 

• OF BYTES • 

• TO BE USED • 

• BY RLD BUFFER • 



ESTIMATED 
END OF RLD 
BUFFER AREA 



E2 •. 
.» •. 

.• IS * 

•.BUFFER LARGE 
•. ENOUGH .* 


. NO 


...X* 


•»*E3»«*»**» 

SET 

WRITE 

OUT 

SWITCH 


• YES 




* 


INITAL X 

• INITIALIZE 

• RLD CCW 
« FOR READ 


* 







INITIALIZE 
WORK CCW 
FOR WRITE 



Chart NB. Compute Buffer Size 
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RLDKD 



READ 

RLO 

RECORD 



•»»C4*»»»»»*« 



FIRST 

TIME 

THROUGH 






Chart NC. Read RLD Record 



••F3«»»»» 

ABORT 
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PHRCD 



»*»# A 4» »»»«»*• 

ADD TO PHASE 

ORIGIN SIZE 

OF COMMON 



PHRCD .X. 

B2 «. 
.• 1ST ♦ 
.* TIME 
*. THROUGH 



»»»B4*»******* 
MOVE PHASE 
ORIGIN TO 
BUFFER 



SETEOP X 

•••••C2««»*»««« 

• MOVE END OF 

• PHASE CODE 

• TO BUFFER 



•»C4******* 

GET PHASE 

NUMBER 



PRINT PHASE 

NAME AND 

TRANSFER ADDR 



* FIND ADDRESS 
•OF PHASE ENTRY 
» IN C/D 



» INCREASE 

• RLD BUFFER 

• POINTER 



••••E5********* 
ABORT • 



F2 «. 

• RLDS • 

TO BE 

WRITTEN 

OUT 



COMPUT X 

••»*«F4»***»«« 

# COMPUTE 
» HIGH CORE 
» ADDRESS OF 

* PHASE 



WRITE RLDS 

ON TAPE FOR 

COMPLETED 

PHASE 



G4 •. 
.•IS THIS*. 
• PHASE THE 
LONGEST 



•••••G5 •••••••••• 

• STORE END OF • 

• PHASE ADDRESS • 
X«TO COMPARE WITH* 

• LATER PHASES • 



EOF 

ON 

SYSOOl 



•H3»»»*» 
ABORT 



•••H4*» •••••••• 

MOVE PHASE * 

END ADDRESS • 

TO BUFFER » 



»*e J2»»*»boo 

TURN OFF 

FIRST TIME 

SWITCH 



••••J5 ••••••••• 



»**««K2»»*«**«»«* 

» MOVE * 

• PHASE NAME * 

* TO BUFFER * 



UPDATE 
BUFFER 
POINTER 



Chart ND. Process PHASE Record 
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•A2**»«* 

PRTHDR 



SET ASA 

CODE TO 

SKIP TO 

CHANNEL I 



SET CCW 

FOR TAPE 

WRITE 



SET COMMAND 
CODE FOR 

PRINTER ANO 
ASA COUNT 



b»»»*D3»»*»«»*« 
« SET CCW 
• FOR TAPE 
« WRITE 


• • 



DECREASE 

LINE COUNT 

BY ONE 



LINE *. NO 
COUNT .»... 
ZERO .* 



RESET 

LINE 

COUNT 



SET COMMAND 

CODE TO WRITE 

A LINE AND 

SKIP TO 

CHANNEL 1 



STORE 

LINE 

COUNT 



•G3**«* 

WRITE 
LINE 



EOF 

ON 

SYSLST 



ABORT 



Chart NE. Print Header Subroutine 
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•»A2»«*«»* 
BUILDHDR 



BUILDHDR 

•»*«#B2*«»*«»*»< 

• MOVE PHASE 

• NAME TO 

• PRINT 

• AREA 



.• ALL 


* 


. NO 


». CHARACTERS 




...... 


•-CONVERTED. 


• 




• • .* 










X 


• YES 




•••• 
• 
* 2 

• 
•••• 


X 






« 




» 


• RESTORE 




m 


• REGISTERS 




• 


• 




* 


• 




• 



»»»*C2 •••••»• 

MOVE 

TRANSFER 

ADDRESS TO 

WORK AREA 



••••C4** ••••••• 

• RETURN 



»*»»»E2««*»»»»« 
« GET ADDRESS 
» OF PRINT 
• AND WORK 
» AREAS 



GETFIRST 

•••••F2******* 

* GET 8 BIT 
» CHARACTER 

• TO BE 
» PRINTED 



#»»G2»»«»«»»» 

GET ADDRESS 

OF PRINT 

CHARACTER 

FROM TABLE 



»»«H2*«**«*« 

MOVE PRINT 

CHARACTER 

TO PRINT 

AREA 



UPDATE 

PRINT AREA 

POINTER 



*«»*«K2 *•**»»«»»• 

• UPDATE INPUT » 
•ADDRESS TO GET • 

• NEXT 8 BIT • 

• CHARACTER • 



Chart NF. Build Header Subroutine 
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* 2 * 



••••A2******** 
• RLDFMT 



A4 



X. 

_R 
ENTRY 



NOTLR 

*»«*»A5*** 

•ESDTST 



RLDFHT X 

•••••B2********** 

• GET NUMBER OF • 
•RLD RECORDS ANO* 
•NUMBER OF BYTES* 

• PER RECORD » 



••••B3*« *»•»*• 
INCREASE 
ERROR . 
COUNT BY ONE 



NO .* NOT 
...«. A PHASE 
*. ENTRY 



GET THE 

RELOCATION 

FACTOR 



•••»*C2 •#•*•»••»• 

• SET • 

• POINTER TO « 
« 1ST BYTE • 

• OF RECORD » 



•••••C3* »»»»»*•• 
» STORE NUMBER 

• OF UNRESOLVED 

• ADCONS 



■•••C4*»*» •••••* 

SAVE « 

ASSEMBLED » 

ORIGIN • 

ADDRESS • 



•••••C5**** ****** 

* GET * 

* ASSEMBLED * 

* ORIGIN » 



NEWRCO X 

•••••D2 ********** 
•PICK UP NUMBER • 



»*»«D5 •*••**••• 



• NM • 

• B3» 



•»*«*E2 ***••*•**• 


* GET 


ADDRESS 


» 


* OF 


FIRST 




* R- 


POINTER 




• IN 


RECORD 


• 
• 



GET THE 

RELOCATION 

FACTOR 



COMPUTE 
END OF 
RECORD 



••••F4********» 



SAVE 

R AND P 

POINTERS 



MOVE 
POINTER TO 
NEXT FLAG 



•••*«J2***« •**••• 

* SAVE ADDRESS * 

* OF ASSEMBLED * 
» ORIGIN BYTE * 



J3 *. 

.« SAME *. 

R AND P *. NO 
POINTER .*... 

. FIELD .* 



SET 

POINTER TO 

R AND P 

POINTER FIELD 



••»K2********* 

COMPUTE 

ADDRESS OF 

ENTRY IN 

C/D 



*»*«K4********* 
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* ESDTST 



SD 
OR PC 
ENTRY 



.X« RETURN » 



». ENTRY 



•••••E3»« »»»*»#» 

• ZERO 

» LENGTH IN 

* A/O FIELD 



ERRESD 

«»*»»E 4» •*•»•••»• 

» INCREASE * 

* NUMBER OF * 

• UNRESOLVED » 

* ADCONS BY * 

• ONE • 



•F3*»»*»»**» 

RETURN 



»*»»F4«»*»» 
* RETURN 



Chart NH. ESD Check Subroutine 
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GETRF X 

••••»B3*»*«*»» 

• MOVE 

• RELOCATION 
« FACTOR TO 

• BUCKET 



ZERO 

FIRST 

BYTE 



R/F 
SIGN 
PLUS 



RETURN 



•••»•£ 3** »»»*»»» 

• TWOS 

* COMPLEMENT 

* R/F AND STORE 

• IN BUCKET 



»»#»F3*««»*«» 
RETURN 



Chart NJ. Get Relocation Factor Subroutine 
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* MOVRFAO 



MOVE R/F 

AND A/O 

TO BUFFER 



INCREASE 

RLD BUFFER 

POINTER 

BY 8 



COMPUTE 

ADDRESS OF 

ENTRY IN C/D 



INDICATE 
INVALID C/D 
ENTRY FROM 

P-POINTER 



PESDOK X 

•»**»G3 »*»#*»» 
•GETRF 

* GET THE 

* RELOCATION 

* FACTOR 



•«»#G4»»«»« 
ABORT 



INCREASE 

REG TO 

POINT TO 

FLAG FIELD 



Chart NK. Move Relocation Factor and Assembled Origin 
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INCREASE 
POINTER TO 
NEXT FIELD 

IN RECORD 



SAVE FLAG 

INDICATING 

TYPE OF 

CONSTANT 



.» FIELD ». 
» HAVE SAME 

R AND P 
•. POINTER . 



**»*«C2********** 

• GET • 

• A/O OF » 
» CONSTANT » 



ZERO 

FIRST 

BYTE 



ADD R/F 
TO 
A/O 



STORE 

RELOCATED 

ORIGIN 



.* THIS R/O • 

-GREATER THAN 

*. LAST .« 



SET BIT IN 

PHASE ENTRY 

TO INDICATE 

NON-SEQ RLDS 



#»*H2*»»»»»» 

SAVE NEW 

RELOCATED 

ORIGIN FOR 

NEXT TEST 



MOVE FLAG 

AND RELOCATED 

ORIGIN TO RLD 

BUFFER 



UPDATE 

RLD BUFFER 

POINTER 



Chart NL. Process Flag 
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ENDTST 




.X. 




m 






» 


;nd 




of 


INFO 




l-UK 


THIS 


* 


RECORD 



LAST 

RECORD IN 
. CORE 



GET ADDRESS 
OF RECORD 
JUST DONE 



•ADD TO ADDRESS 
• NUMBER OF 
« BYTES IN 
» RECORD 



•••F3*«»*«*« 

STORE 

START ING 

ADDRESS OF 

NEW RECORD 



Chart NM. Test for Record End 



* D2» 
NEWRCD 
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* ENDPH 



TURN ON 

COPY 
SWITCH 



* MOVE HIGH « 
•CORE ADDRESS OF* 
« LONGEST PHASE « 
» TO SAVE AREA « 



REWIND 
RLD 
TAPE 



VOVE END CF 

PHASE CODE 

TO RLD BUFFER 



PRINT PHASE 

NANE AND 

TRANSFER ADDR 



• FETCH * 
» $LNKEDTJ * 
•PASS3 CORELOAD2* 



.» RLD *. 

.« RECORDS *. 

.TO BE WRITTEN. 

». ON TAPE .* 



WRITE 

RLDS FOR 

LAST PHASE 

ON TAPE 



.* ECF *. 

« WHEN 

WRITING CN 
*. SYSOOl , 



WRITE A 

TAPEMARK 

ON WORK 

TAPE 



»••*»• J2»«»«* 

« REWIND 
WORK 
» TAPE 



.» TXT « 

AND RLDS 
ON SAME 
. TAPE 



Chart NN. End of RLD's 



Charts 



253 



•A2»*»«» 
START 



STORE ADDRESS 
OF OUTPUT 

IN WOKK 
CCW 



» STORE ADDRESS 
• OF RLD BUFFER 
» FROM 
•PREVIOUS PHASE 



SET UP CCWS 
FOR READ 
AND WRITE 



STORE SIZE 
OF RLD 
BUFFER 



SKIP TO 
•FIRST TAPEMARK 
ON SYSOOl 



STORE SIZE 

OF TXT BLOCKS 

IN WORK 

CCW 



TESTCOPY -X. 

E2 ». 
••SHOULD ». 
.• WORK-TXT 
•. ASGNMTS BE 
•. CHANGED . 



»*»»*E *>•••• •••*•* 

• STORE SIZE OF • 
•TXT BLOCKS PLUS» 

• 2 FOR PHASE ♦ 

• NUMBER IN • 

• TXT CCW • 



»»»*»F2»«***»»«*« 

» CHANGE WORK • 
•TAPE ASSIGNMENT* 
* TO SYS002 » 



•SET RLD BUFFER 

• REG TO POINT 

• TO START OF 

• PHASE 



«.»*«G2*«*»*»»««* 

•CHANGE TXT TAPE* 

• ASSIGNMENT TO • 

• SYSOOO • 



.•END OF «. 
• PHASE 
PROCESSING 



POSITION WORK 

AND TXT 

FILES 



GET ADDRESS 
OF TXT 
BUFFER 



• RLDS 


* 


NO 


ON TAPE 






*. . 






• . .• 










X 


• YES 




• •*•• 

• PB • 

• B2* 

NEWPHA 


X 






»#»J4«»***»< 


«»•• 


READ RLDS 






FROM 






SYSOOl 








* 



STORE ADDRESS 

OF TXT 

CCW 



ABORT 



• NO 

Inewpha 



Chart PA. Initialization (Part 1 of 3) 
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UPDATE RLO 

REG TO 

POINT TO 

FIRST RLD 



•»B2****** 

TURN OFF 

LAST 

BLCCK 

SWITCH 



END 
OF PHASE 
. RLDS 



SET 
SWITCH TO 

SHOW NO 
MORE RLDS 



MOVHDR X 

••■••C2«********* 

• MOVE NAME, • 

• ORIGIN, END, » 
•AND ENTRY POINT* 
» FOR RLD TO • 
« HEADER » 



#«C4«*»»* 
READ A 
TXT 
BLOCK 



• *»»D2«">*«»«* 

MOVE HIGHEST 

ADDRESS OF 

LONGEST PHASE 

TO HEADER 



GET NEW LOW 

ADDRESS OF 

TXT IN 

STORAGE 



••E2******* 
MOVE SIZE 

OF TXT 
BLOCKS TO 

HEADER 



••••E5»«**« 

» ABORT 



•*»««F2 ********** 
•MOVE NUMBER OF * 

* BLOCKS AND * 
•NUMBER OF BYTES* 

* IN LAST BLOCK * 

* TO HEADER * 



PHASE 
NUMBER 
CORRECT 



»*F5***** 
ABORT 



STORE 

PHASE 

NUMBER 



FULL8K 

»»»*»G5 ******* 

* GET HIGH 

* ADDRESS OF 
...X* TXT IN 

* STORAGE 



* RLDS 

NON-SEQUEN- 
*. TIAL 



»»«»»H3»****** 

* SET * 

* SWITCH FOR * 
.X*NON-SEQUENTIAL 

* RLDS * 



SET 

SWITCH 

FOR LAST 

BLOCK 



••••*J2******* 
* TURN OFF ♦ 
•RLD SEQUENTIAL 
» SWITCH 



BYTES OR 

LESS OF 

TXT 



SETBYT 

•♦•»»J5»*»***»** 
•MOVE NUMBER OF 

* BYTES IN 
...X* LAST BLOCK 

* TO WORK 

* CCW 



SET BYTE 

COUNT TO 

122 



Chart PB. Initialization (Part 2 of 3) 
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SET 

SWITCH TC 

DOUeLE TXT 



COMPNT X 

ff««««C2»»«o«**» 

» GET NEW HIGH 

• ADDRESS CF 

• TXT IN 
« STORAGE 



♦ ADCON « 

TO BE 
•.INSERTED .» 



INSERT 

CONSTANT 

IN TXT 



*«F2»*»»»« 

TURN 

OFF 

CONSTANT 

SWITCH 



Chart PC. Initialization (Part 3 of 3) 
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»A2*»*»* 
RLOTST 



.« MORE ». 
.• RLDS TO • . NO 
».BE PROCESSED .»... 



NEWRP X 

»««#»C2**«*«»»*» 

* SAVE R/F, 
» A/C, AND 

» ADDRESS OF R- 

• AND P-POINTERS 



*»**D2»*****»»» 

UPDATE RLD 

REG BY 8 

TO GET 

RELOCATED 

ORIGIN OF RLO 



E2 «. 
.•IGNORE *. 

RLD DUE *. YES 
TO ERROR ...... 



»»»»*F2**»*»* a 
« SAVE 
» RELOCATED 
» ORIGIN 
» ADDRESS 



* IS «. 
RLD IN *. NO 
CURRENT .*... 
PHASE .* 



ADD ONE TO 
COUNT OF RLD 
ITEMS OUTSIDE 
OF PHASE SIZE 



.•IS R/O •. 
• LESS THAN • 

LOW ADDRESS 
*. IN TXT .* 



SET 

INDICATOR 

TO IGNORE 

RLD IN ERROR 



.♦IS R/O ». 
YES .* LESS THAN » 
......HIGH ADDRESS 

*. IN TXT .♦ 



K2 ♦. 
.♦ ARE ♦. 
.• RLDS •- N 

•. SEQUENTIAL .♦. 



YES 

TXTWRT 



Chart PD. Match RLD to TXT 
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*»»*A2««»»* 
SUBSTI 



• PUT 

• RELOCATION 

• FACTOR IN 
» RFREG 



GET LOW 

ADDRESS CF 

TXT IN 

STORAGE 



•»«*C2*******«* 

SUBTRACT 
START OF RLO 
DUFFER TO GET 
DISPLACEMENT 



•••»»D2««*****»** 

• SUBTRACT CIS- » 
•PLACEMENT FROM » 

• R/O TC GET RE- * 
•LOCATED ADDRESS* 

• OF CONSTANT • 



.•IS THIS*. 

AN ER •. YES 
ENTRY .». 




GET 

CORRECT 

LENGTH OF 

CONSTANT 



• SUBTRACT 

RFREG FROM 
•.CONSTANT . 



•*»E4»»»»*««»«* 

ADD • 

CONTENTS OF • 

RFRfcG TO » 

CONSTANT • 



SUBTRACT 
CONTENTS OF 
RFREG FROM 

CONSTANT 



•«»»»F2*»» 



REPLACE 

*»«F4»*«»»**« 

PLACE 

RELOCATED 

CONSTANT IN 

TXT BLOCK 



ADD LENGTH 
TO GET END 
ADDRESS OF 
CONSTANT 



.* IS *. 

•END ADDRESS*. 
IN STORAGE . 



G4 ». 

.• DOES ». 
• CONSTANT 

FIT IN TXT 
*. BLOCK . 



»»H4»»*««** 

LOAD CCW 

FOR EXTRA 

READ 



**»*eJ4»»»»»«*«* 

• SAVE PART 
•OF CONSTANT TO 

• GO IN NEXT 

• TXT BLOCK 



INSERT 

• •*«*K2*»**«*"*« 

• PUT CONSTANT • 

• IN TEMP ♦ 

• REG. • 



Chart PE. Relocate Constant 
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EXTREAD .X. 




B3 ». 




.• DOES «• 




.* CONSTANT 


». YES 


». FIT IN TXT 




». BLOCK 


» . 








X 


• NO 






*PE • 




♦ J2» 












PULLOUT 


X 




•••••»C3»»*«*»< 




READ SIX 




« BYTES OF 




NEXT TXT 




« BLOCK 


l# # 



SET 

CONSTANT 

SAVtrD 

SWITCH 



EOF 

ON TXT 

TAPE 



ABORT 



BACKSPACE 

RECORD 

ON TXT 

TAPE 



OVERLAY 
PHASE NUMBER 
WITH CONSTANT 



RESTORE 
EXTRA READ 
CCW TO READ 



Chart PF. 
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INCREASE 

RLD REG 

BY 4 



.* NEXT *. 






.» RLD HAVE *. 


YES 




.SAME R/F AND . 






». A/0 .» 














X 




« NO 


»PD # 
* E2* 

RIGRLD 




.X. 






D2 ». 












.* ENO •. 


NO 




. OF PHASE 




















X 




♦ YES 


»PD*« 
« C2« 

NEWRP 




. X. 






E2 ». 












.» RLDS *. 


YES 


# TURN ON 


. SEQUENTIAL 




X» END OF RLD 


*. . * 




» SWITCH 



LAST 


• 


YES 


BLOCK OF 






PHASE 


» 


. 












X 


* NO 




*PA * 
* F4» 

GETRLD 


.X. 






B4 ». 






• ALL » 






RLDS 




YES 


PROCESSED 




*. . . . 



CA *. 
.» ARE *. 

RLDS 
SEQUENCED 



SET RLD 

REG TO POINT 

TO START 

OF RLDS 



**»C5»**»«»*« 

GET ADDRESS 

OF LAST 

R- AND P- 

POINTER 
PROCESSED 



* C4» 

RDTXT 





.» BLOCK «. 




.» TO BE *. NC 




». DCUBLED ...... 
















« YES 




X '. 




•»*»*G2»**o«** 




* TURN OFF » 




* DOUBLE TXT » 




« SWITCH » 










D * 




K2* 














X I 




♦»««»H2«*»«««»*»« 








* DOUBLE « 




• LAST TXT » 




» BLOCK « 












...............xlx..........! 







TXTWRT 

WRITE 
• TXT BLOCKS 
ON WORK 
* TAPE 



«. ««##K3»»*»# 

». YES « 
EOF .« .X* ABORT 



Chart PG. Get Next RLD 
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»»*A3»»**» 
ENDPHA 



WRITE A 

TAPEMARK 

GN WORK 

TAPE 



REWIND 

RLD 

TAPE 



FETCH 

$LNKEDTL 

PASS 4 



BACKSPACE 
FILE ON 
WORK 
TAPE 



**G3*»*»*» 

POSIT ION 

SYSOOO 

FOR 

COPY 



»#H3«»»#«* 

FETCH 

$LNKEDTL 

PASS 4 



Chart PH. End of Processing 
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.» IS ». 

MAP 

REQUESTED 



••♦»»B5*»*» 



REQUESTED 



USING SKPLINE, 
« PRINT BLANK 
LINE ON 
» SYSLST « 



Dl ». 

.* DOES *. 

»R2 INDICATE* 

ABORT ERROR 



.• ARE ». 

» THERE 

UNRESOLVED 
*. RLDS 



USING CNVCNT, 

PRINT MESSAGE 

ON SYSLST 



»«#*F1**»»*»«»» 
FORWARD SPACE 

SYS002 
ONE TAPEMARK 



*Gl*»»«* 

READ 

RECORD 

FROM 
SYSO02 



.• ANY *. 

.* TXT/REP ». 

•.OUTSIDE PHASE. 

». LIMITS .* 



•ft»«F3»»***»««* 

USING CNVCNT, 

PRINT MESSAGE 

ON 

* SYSLST • 



*»»»C5 »»*»••»»♦ 

CONVERT 

ERROR CODE IN 

R2 TO DECIMAL 

AND STORE IT 

IN MESSAGE 



LNKEDT CANNOT 
• CONTINUE. 
PRINT MESSAGE 
* ON SYSLOG • 



.X. 
E5 «. 

.* ARE ». 

•SYSLOG AND • 

SYSLST SAME 
». DEVICE .» 



HI •. 
TAPEMARK 



»...J1. „••...• 

WRITE RECORD 

ON 

SYSOOO 



G3 ». 

.* ANY •. 

.» RLDS •. 

.OUTSIDE PHASE. 

». LIMITS .» 



CNVCNT 

*#*#»*h3»**»****» 
PRINT MESSAGE 
* ON 

SYSLST 



ENDCOPY X 

WRITE TAPEMARK 



IS 
SYSLST 
. TAPE 



SVC 14 

EOJ 



MOVE ASA 

CODE TO 

FIRST BYTE OF 

MESSAGE RECORD 



WRITET X 

»#**«»J5»»«»»»»»» 
LNKEDT CANNOT 
• CONTINUE, 
PRINT MESSAGE 
• ON SYSLST ♦ 



END 

OF 

REEL 



***»••••» 



Chart QA. Pass 4 
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«»»Al»«»*» 
MAINT 



ETCHED ». YES 

SLASH 

PERSAND.* 



♦SS-H3.J4.H5 
TA-C3.D3 
TB-H2,H5 
TC-F1.G1.H2 
G3.G4.H5 
TF-F4 
TG-J5 
UD-G5, J4 



TURN ON 

CATAL 
SWITCH 



.• HAS • . 

.• FIRST » 
.CONTROL CARD 
•.BEEN READ.» 



TURN ON 

DELET 
SWITCH 



*SB-C2,C3»«» 
SL-E3 » ** 
SM-F1 »»•» 
OUTORO 



.• ARE ». 

.ALL OPERANDS .» 
•.PROCESSED.* 



NEWVOL 

OR COPY 

CARD 



PRINT 

MESSAGE 

3M31I 



SB-K4 

SC-H2, 

G5 



••EL**»*»*» 

READ 

LIBRARIAN 

CONTROL 

CARD 



• SB * 

• F5« 

NOREAD 



»*»E4«»««>*« 

CHANGE DTF « 

TO SYSIPT 
FOR CONTROL 
CARD INPUT 





Fl •. 








• EOF, ♦ 








CARD IS 




YES 




A /• OR 


• • 




• 


/£ .* 


. 
















X 




• NO 




•»•• 






• SB 








• F2 


• UD 


*.X. 






• J5» 










AEND 


PUTLST 


X 








*GL»*»*»«*»*» 






PRINT 






• 


LIBRARIAN 
CONTROL 


* 






CARD 


* 





CHANGE DTF * 

TO SYSRDR 
FOR CONTROL 
CARD INPUT 



ERRINV 

*»#«««G3* 
ERRRTN 



PRINT 

MESSAGE 

3M10D 



EMAINS 

•••••Hl«* •♦»•*•• 
•INITAl SD 

* GET POSITION 

• AND LENGTH OF 
•OPERATION CODE 



.• OPERATION •. NO 
• . STOPPED BY .»... 
•. A BLANK -• 



Chart SA. Read Control Card 
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CARD 

CONCERNS 

CL 


*• 


NO 


.« CARD 


*• 


NO 


X»I 


CARD 

CONCERNS 

SL 


*• 


NO 


• 




«. RL 


.» 




* 


. 








































X 


* YES 






* YES 








» YES 




*SA « 
* G3» 

ERRINV 


.X. 




OPERRL .X. 




OPERSL 


.X. 






C2 ». 






C3 •. 








CA *. 


























IS 




YES 


.* IS 




YES 




IS 




YES 


MAINTS 






*. MAINTS 








MAINTS 






IN CORE 


« 


. 


«. IN CORE 


.* 


. 


* 


IN CORE 


• 


. 






















*. . « 




X 


* . .* 




X 




* . .* 




X 


* NO 




•SA * 


* NO 




*SA * 




« JJO 




****** 






« 04* 






* D4* 








* 1 » 


X 






X 








X 


























»SL » 




OUTORD 


»SM • 




OUTORD 




*SN * 






* D3« 






» Bl* 








* Bl» 














































OPRCL 






OPRRL 








OPRSL 







»SL-F3 
SM-G1,G2,D4 
SN-F1,G2,K3 



TURN ON 

END 
SWITCH 



• »• j !.»»**»*« 

SET ANALEN 

SWITCH TO 

BRANCH TO 

WRTEOV 



*«K1***»*«« 
MAINTS £8 
END ENTRY 
CHART UA 



FIRST 

CONTROL 

CARD 



TURN ON 
ALL COPY 
SWITCHES 



SCANFS 

««*«#F4» 
•FRSTCH 



GET POSITION 
AND LENGTH OF 
FIRST OPERAND 



* IS 
CATAL 
SWITCH 



.X. 

J4 *. 

* IS 

DELET 

SWITCH 

ON 



ERROR 

MESSAGE 

3M21I 



GET POSITION 
AND LENGTH OF 
NEXT OPLRAND 



MAINTS 

CATAL ENTRY 

CHART UA 



••••K5******** 

MAINTS £4 

DELET FNTRY 

CHART UA 



Chart SB. 



Determine Exit 
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»«*»*B1*» 


»•»•• 


* TURN 


ON 


» SYSRLB 


AND 


» PRIVATE 


TAPE 


» SWITCHES 



TURN ON * 
SYSSLB AND 
PRIVATE TAPE 
SWITCHES 



TURN ON 

CL 
SWITCH 



»»»C4*ft»e»* 

TURN ON 

RL 
SWITCH 



TURN ON 

SL 

SWITCHES 



»»»El*««**» 

TURN OFF 

FIRST 

CARD 

SWITCH 



OPRERR X 
•«»***E3***« 

ERRRTN 



EXTOPR 

«»»».F5» 
•NXTOPR 



GET POSITION 
AND LENGTH OF 
NEXT OPERAND 



COPOPR 

»****H1» 
•FRSTCH 



GET POSITION 
AND LENGTH OF 
FIRST OPERAND 



IS 

OPERAND 
BLANK 



ANEWVO 

»«»#H2»«**«*« 

TURN ON * 

NEWVOL AND 

PRIVATE TAPE 

SWITCHES 



*»H3* 

TURN ON 
ALL COPY 
SWITCHES 



Chart SC. 



Process First Card 
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FRSTCH 



* GET ENTRY * 
♦POINT FCR FIRST* 

* OPERAND « 



SCANRl .X. 

C2 «. 
.» IS *. 

.* CHARACTER 
». A BLANK 



.* HAS «. 

* MAXIMUM «. 

LENGTH BEEN .♦ 
•.EXCEEDED .» 



•F2»*»«* 
RETURN 



«F't«»»»» 
NXTOPR 



.» CHARACTER *. 

•.A COMMA, BLANK. 

».OR EQUALS.* 

•.SIGN .» 



• INCREASE 

• CHARACTER 
•COUNT AND LOOK 

• AT NEXT 

• CHARACTER 



X 

»*H5»*»*** 

SAVE 

POSITION 

OF NEXT 

OPERAND 



.X. 

J4 ». 

.• HAS ». 

• MAXIMUM •. NO 

LENGTH BEEN .•... 

♦.EXCEEDED .• 



RETURN 



Chart SD. 



Scan Subroutines 
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»»SP-H2 
•SL-E1 

•UH-F1 



.X. 

F3 ». 

.* ARE *. 

* TAPES TO 
BE REWOUND 



•*»F3*»****» 

REWIND 

TAPES USED 

BY MA INT 



SVC 6 
CANCEL 



Chart SE. End of Job 
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GET ERROR 

MESSAGE. 

SET UP 

CCW 



.X. 

C4 •. 

.• 1052 ». 

ASSIGNED 

TO SYSLOG 



.•SYSLST • . 
•SAME DEVICE*. YES 
AS SYSLOG ...... 



GET OPERATOR 
ANSWER 
FROM 
* SYSLOG 



TURN ON 
MESSAGE 
SWITCH 
N0P1 



TURN ON » 
CANCEL 
SWITCH N0P2 



.•ANSWER • 

CANCEL 

OR BLANK 



»»»#F2»*«»«**« 

PRINT LAST 

CONTROL CARD 



*»»G2»»*»»»«» 

PRINT ERRCR 

MESSAGE 

ON 
SYSLST 



**»»»G4»»»»»«» 


»#»«»G5»»**»*« 


♦ INDICATE THIS 


• TURN ON 


• STATEMENT * 


• ERROR 


• TO BE • 


• SWITCH 


♦ BYPASSED • 


* MODIF 


*»*••••»••»**»* 


•»••••••*•«•*• 



«»*H4*»»**»* 

RESET N0P1 

AND N0P2 

SWITCHES 



CANCEL 

SWITCH 

ON 



ERROR 

SWITCH 

ON 



»K2»«*«« 

SVC 6 

CANCEL 



X 

RETURN 



Chart SF. Error Message Subroutine 
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»«A2*»»»« 
SKIPTC 



» IS 

NEWVQL 
SWITCH 



« WILL ». YES 

CUTPUT TAPE 

«. HAVE CL .« 



»D1«*»#» 
RDAFM 



T .X. 
D2 ». 
.# IS *. 

• DESIRED 

LIBRARY ON 

«. PRIVATE . 

*.TAPE .» 

***YES 



* IS » 
DESIRED 
LIBRARY 



RESET 

DSTRT1 

SWITCH 

OFF 



•*«»E2*»*«**»« 

OPEN PRIVATE 
TAPE SYSRLB 
OR SYSSLB 



REWIND SYSRES 

TO CORE 

IMAGE 

* LIBRARY * 



READ 
NEXT 
HEADER 



SET 
DTSTRi 
SWITCH CN 



LIBRARY .» ». LIBRARY 
LOW .* COMPARE ». HIGH 

*.WITH LIBRARY .* 

«. NAME .• 



• •« 


«G4««*» 






• 


OPN2SW 






*«« 


«*«**** 


*»« 


# 










« 2 


• • . 
















OPN2SW 


.X. 




H't » 






.» 


IS 




SYS002 


«. 


OPE 


N 



SKIP TO 

NEXT 

TAPEMARK 



BSRINI 
*EXCP 



BACK UP TO 

START OF 

LIBRARY 



SET LIBRARY 
NOT FOUND 
INDICATOR 



OPEN 
SYS002 
OUTPUT 

TAPE 



Chart SG. Find Library Subroutine 
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• EXCP 



SET SWITCH 

TO WAIT 
AFTER EXCP 



»»»C3*»*»««»* 

SET LOGICAL 

UNIT IN 

CCB 



* IS 

UNIT 
SYSRES 



TSTMV X 

NNNNNNNNNNNNNNNNNNNNNNNNNN*»»»«E3»* »»**** 

• DOES NOT EXCP » SVC 15 

» IF COMREG • • IF PROGRAM 

• INDICATOR IS « FETCH 

» RESET, BIT 1 » »DID NOT MOVE 

• OF BYTE 56 » SYSRES, EXCP 



SVC 

EXECUTE 
DESIRED 
CHANNEL 
PROGRAM 



NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 



•SYSRES MUST BE 

REPOSITIONED 

BEFORE EXCP 

WILL BE 

ALLOWED 



IS *. 

COMREG 

INDICATOR 

. RESET . 



WAIT 
SWITCH 

ON 



RESET 

WAIT 

SWITCH 



*K3*»*»* 
RETURN 



Chart SH. Execute Channel Program Subroutine 
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SAVE CALLER 
REQUEST 
STATUS 



RSTPOS X 
NNNNNNNNNNNNNNNNNNNNNNNNNN»»*»*D3»*«)»«»» 

» SETS COMREG » SVC 
» INDICATOR TO » * 

* -SYSRES NOT ♦ NO 

* MOVED BY ♦ * OPERATION 
♦PROGRAM FETCH- * 



.« IS ♦ . 

NO .» SYSRES * 
BEFORE FIRST 



»»#«»E3»**»*«» 
« TURN ON * 

* RECOVER » 

* SWITCH 



REWIND 

* SYSRES » 

TO LOAD POINT 



.* SYSRES ». YES 
*. AT CORRECT ...... 

*. TM .* 



♦ 2 
LBPOST 



.X. 



G3 

.♦COMPARE*. 
LOW .♦ DESIRED « 
...... TM COUNT TO 

♦ .POSITION .* 



*#»H1»*»»**»*« 
XCP _SH 

BACKSPACE 

SYSRES TO 

A TAPEMARK 



.♦COMPARE^. 
.♦ DESIRED ♦ 
.REC COUNT TO 
♦.POSITION .♦ 



FORWARD SPACE 

SYSRES TO 

A TAPEMARK 



DECREASE 

TAPEMARK 

COUNT 



BSRRTN 

♦ EXCP 

« BACKSPACE 

♦ SYSRES 1 

♦ RECORD 



TURN OFF 
RECOVER 
SWITCH 



FSRRTN 

• •*»• J4*< 

♦ EXCP 



FORWARD SPACE 
SYSRES 1 
RECORD 



INCREASE 

TAPEMARK 

COUNT 



♦»*»«K3 «♦*»#♦♦»♦ 



* 5 ♦.X. 
CLRRCT 



DECREASE 

RECORD 

COUNT 



INCREASE 

RECORD 

COUNT 



♦ ♦^♦♦♦♦♦♦♦^ 

RESET RECORD 
COUNT 
TO 



Chart SJ. Reposition SYRES for EXCP 
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.» TAPE 
». MARK 

"**N0 


* 


YES 






•^ 










MODIFY .X. 

C4 *. 

ON .***MODIFY 
». SWITCH 


• 


* 


EOF INC X 

•••»«C5*»««*»*»«» 

» INCREMENT * 
» TAPE MARK « 






» COUNTER • 



> .OFF 



INCREMENT 

RECORD 

COUNT 



TURN OFF 
MODIFY 
SWITCH 



ANALL-N 



SET UP 
CCW TC, 

READ 
LIBRARY 



READ 
LIBRARY 
RECl.RD 



TURN ON 

MODIFY 

SWITCH 



WRITE TAPE 

MARK ON 
SYS002 



SET UP 

CCW TO 

WRITE 

LIBRARY 



WRITE 

LIBRARY 

RECORD CN 

SYS002 



SET UP 
CCW TO 

READ 
LIBRARY 



READ 
LIBRARY 
RECORD 



Chart SK. Copy Complete Library 
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•SK-D2 
SM-F3 
SR-K4 
TG-F3 ,G3 , J3 



.X. 



Bl 



IS 

.» ANALEN •. 

♦.SWITCH SET TO. 

♦.BRANCH TO.* 

♦.OPRRL.^ 

"♦ "no 



NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 



BRANCH ._ 

CPRRL THE 

FIRST TIPE 

THROUGH 



.♦ ANALEN ». YES 

.SWITCH SET TO.» 

♦ .ERA.MCH TU.^ 
♦ .OPRSL.* 



.♦ ANALEN ♦. YES 
.SWITCH SET TO.»... . 
♦.BRANCH TO.* 
».OPREN.» 



.». CATAL CARD 



.» ANALEN ♦. 

.SWITCH SET TO. 

♦.BRANCH TO.* 

♦ WRTEOV * 



.* MAINTR 

•OR HAINTS 

». COR£ 



•t*»F3» 

TURN ON * 
MAINTC-IN-CDRE 
COPY CL, AND 

DELET • 

SWITCHES » 



* F4^ 
SCANFS 



TURN GFF ♦ 
MAINTC OELET 
SWITCH 



♦♦K3**«»«* 
MAINTC £8 
CHART SG 



Chart SL. Fetch for Core Image Library 
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SET ANALEN 

SWITCH TO 

BRANCH TO 

OPRRL 



B3 *. 

.» IS CL ». 
.•PROCESSING *. YES 
•. COMPLETE ...... 



TURN ON 
RL COPY 
SWITCH 



»C3*»*»*» 
TURN ON 
CL EOV 
SWITCH 



CALLRL 

*»*»«C4»*»*«*« 

« TURN ON * 
•CL EOV.MAINTR- 

• IN-CORE AND 

• SYSOOl REWIND* 

• SWITCHES ♦ 



.* HAS *. 

•NUVOL CARD 
BEEN READ 



TURN ON 
SYSRLB 
RtWINO 
SWITCH 



TURN 

OFF COPY 

SL SW 



.• IS « 








-• MAINTC 




YES 


*. IN CORE 






























• NO 
























• SP «.X. 








• F4« 
















TSTCAT .X. 








F3 •. 








.• IS • 








.» CATAL 




. YES) 


< 


*. SWITCH 








•. ON 




















X 


• NO 




• SL * 

• J3» 

CPYECL 


.X. 






F3 •. 






.« IS » 






.« COPY CL 




NO 


*. SWITCH ON 




♦ . . . 





r 



• is • 

MAINTR 
IN CORE 



• IS • 

MAINTR 
IN CORE 



**H2*»»»«» 

TURN OFF 

COPY CL 

SWITCH 



J2 «. 
.* HAS •. 

• ANY PHASE • 
BEEN CALLED 



ERROR 

MESSAGE 

3M46I 



•K3***«* 

SVC 2 

CANCEL 
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SET ANALEN 

SWITCH TO 

BRANCH TO 

OPRSL 



TURN ON 
SL COPY 
SWITCH 



.• IS CL ». 

•PROCESSING 
COMPLETE 



CPYE.RL X 

» TURN ON 

« RL EOV 

• SWITCH 



.« IS » 

SYSSLB 

ASSIGNED 



. 


K. 


El 




.* H, 


.s * 


NUVOL 


CARD 


BEEN 


READ 



.* IS RL *. 

•PROCESSING 
COMPLETE 



TURN ON 
SYSSLP 
REWIND 
SWITCH 



Fl ». 

» IS •. 
MAINTS *. YES 
IN CORE .» 



TURN OFF 
COPY RL 
SWITCH 



TURN ON 
RL EOV 
SWITCH 



E3 *. 

.• IS • 

COPY RL 
SWITCH 

ON 



CALLSL 

.»»»«F3» 

» TURN ON • 

• MAINTS-IN- • 
•CORE AND SYSOOl* 

• REWIND • 

• SWITCH » 



SCANFS 

PRPHSE .X. 

G2 • 



.ARE BOTH . 
.« RL AND SL •- NO 
.COPIED ALONE .*... 



RLSLTP X 

ERRRTN 



TURN OFF 
COPY CL 
SWITCH 



FIND START 

OF SL AND 

OPEN SYS002 



ERROR 

MESSAGE 

3M45I 



.* HAS «. 

• ANY PHASE • 
BEEN CALLED 



CHANGE 

BASE 

REGISTERS 

FOR MAINTS 
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• * 


•»»ci**»*««* 


• 


SET ANALEN 




SWITCH 


111 


* 


BRANCH 
OPEN 


IU 


• 







.♦HAS ANY». 

LIBRARY 

BEEN 

.PROCESSED. 



CLBRCH X 

»»*»»D4»»*«»» 

* TURN ON 

• CL EOV 
« SWITCH 



.• IS CL ♦. 
•PROCESSING *. YES 
COMPLETE .*.... 



.♦ ARE *. 

.•BOTH RL AND*. NO 

. SL COPIED 

•. ALONE .» 



RLSLTP 

«*»*»*GL*» 

ERRRTN SF 

~*~ERROR 
» MESSAGE ♦ 
3M45I 



«H1«**«* 

SVC 2 

CANCEL 



E4 •. 




• IS • 




MAINTC 


• . YES 


IN CORE 








• * .* 






X 


• NO 






• SL 




* J3 












CPYE 


• X. 




F4 «. 




• IS •. 




CL TO 


». YES 


BE COPIED 





.» IS SL •. 

•PROCESSING 
COMPLETE 



H2 «. 

• IS SL 

TO BE 
COPIED 



TURN ON 
SL EOV 
SWITCH 



TURN ON 
RL EOV 
SWITCH 



IS • 






MAINTR 




YES 


IN CORE 


, 


».... 












X 


• NO 




•SN • 








• C<t* 
























CPYERL 


.X. 






J4 *. 






IS RL • 






TO BE 




YES 


COPIED 








» 














X 


• NO 




»SK # 








• Bl* 



Chart SP. End of Fetch 



276 IBM S/360 BOS System Control (16K Tape) 



•*• B L »•*•••• » 

NOP 

CATAL ENTRY 

FOR 

RL AND SL 



MAINTC £ ^ 



.X. 
B5 ». 

* FIRST » 

TIME 

THROUGH 



NOP 

OELET ENTRY 

FOR 

RL AND SL 



.*IS IPL ». 

1 TO BE 
CATALOGED 



.X. 

DL *. 

.* FIRST » 

* TIME 
THROUGH 



COPY TWO 
IPL RECORDS 
FROM SYSRES 



COPY ONE 
IPL RECORD 
FROM SYSRES 



«#*D5*«#«*»»» 

COPY IPL 

FROM SYSRES 

TO SYS002 



OPEN SYS002 

AND REWIND 

SYSRES 



.* IS *. 

.•SUPERVISOR * 

TO BE 

*. CATALOGED.* 



WRITE IPL 

FROM 
SYSOOO TO 
SYSO02 



WRITE 

SUPERVISOR 

FROM SYSOOO 

TO SYS002 



COPY 

SUPERVISOR 

FROM SYSRES 

TO SYS002 



*F5****»* 

BYPASS 

IPL 



BYPASS LABEL 
AND TAPE 
MARK ON 
* SYSOOO 



READ PHASE 

NAME FROM 

SYSOOC 



COPYBG 

*#*»*«G2»***«**»« 
COPY IPLS AND 
» SUPERVISOR 
FROM SYSRES 
♦ TO SYS002 * 



X 


NDINIT X 


.X. 


••G3»»»*»*»««*» 


«*»*»»G4»*»**»»**»* 


G5 *. 


BYPASS 


WRITE 


.* ARE * 


SUPERVISOR * 


* TAPE MARK * 


NO .* BOTH IPLS 


ON 


AFTER 


...*. WRITTEN ON 


SYSRES « 


» SUPERVISOR * 


». SYS002 



* B2* 
BGNMNT 



.* IS *. 
CATAL BIT 
IN COMREG 



READ PHASE 

NAME FROM 

SYSOOO 



READING 

FIRST 
RECORD 



SYSOOO NOT 

LINK EDIT 

OUTPUT 



GOOD 
LINK EDIT 
. OUTPUT . 



» TURN OFF • 

• CATAL BIT IN » 

X* CCMREG. 

» REWIND SYSOOO* 
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» CATAL BIT *. NO 

IN .»... 
*. COMREG .* 



.» WAS ». 

* PREVIOUS 

WRITE FRCM 
•. SYSRES . 



••»D2*««*»«* 

READ NEXT 

PHASE NAME 

FROM 

SYSOOO 





LOW .* SYSRES ». HIGH 
...». COMPARED TO ...... 

». SYSOOO .« 


6 • 


X *. .* 

»«»«* »EOUAL 

*SS » 
* E3» 








TSTDEL '. '. 
X 

BYPASS 

• PHASE • 

ON SYSRES 











WRITE 

FROM 

SYSOOO T 

SYS002 



» WAS 

PHASE NAME 
». OMITTED . 



• IS PHASE • 

NAME OUT OF 
«. CRDER .• 



READ NEXT 

PHASE NAME 

FROM 

SYSRES 



TURN OFF 
CATAL BIT 
IN COMREG 



* WAS * 
SYSRES 
FORWARD 
SPACED 



BGMNT2 
WITH 
FSPCSW 
OFF 



PHASE 

NOT 

CATALOGED 



DELET *. YES 

SWITCH 

ON .« 



.* IS ». 

CATAL BIT 

IN COMREG 



WRITE 
TRAILER 
AND TAPEMARK 
• ON SYS002 



REDUCE PHASE 
NAME TO 
8 BYTES 



* END 

OF CL ON 
». SYSRES 



TANALEN 

END OF CL 

SWITCH 
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EOF 

ON 

SYSRES 



••*C3******* 

READ PHASE 

NAME FROM 

SYSRES 



.* 


END 


* 


YES 




OF CL ON 






*■ 


SYSRES 


.» 






*. .» 




X 




« NO 












*SR * 










« F4* 


*SR 


».X 








* B4 


* 














ALL DUN 


TSTDEL 


• X . 
E3 ». 

» IS * 






NO .* 


DELET 








SWI 


CH 







WRITE PHASE 

FROM SYSRES 

TO SYS0O2 



••ARE ALL*. 
.•PHASES OF A*. NO 
♦.PROGRAM TO BE.*... 
*. DELETED .* 



.X. 
G3 *. 

.•SYSRES «. 
* PROG NAME * 

COMPARED TO 

*. DELET .* 

•.OPND .« 

EQUAL 



G5 ». 

.•SYSRES *. 
HIGH .*PHASE NAME * 

*. COMPARED TO 

*. DELET .* 
*.OPND .« 



1 EQUAL tit * 9 



DELERR 


X 






*H4*«»*«*» 










TURN ON 






SEQ ERROR 






INDICATOR 










**** 


*•*•***•*« 


• *•« 
















• SR 


».X 






* H5 
















MVNAME 


X 






»J4»»******* 


ERRRTM 


SF 


• -*- 


PHASE 


*~ 




NOT 






DELE 


TED 





* CI* 

FNTMAI 
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«Al 

HAINTR 



» MAINTR PLUS A 



MAINTR PLUS 8 * 



SET 

ENTRY SWITCH 
TO CATAL 



IS «. YES 
OPERAND .*.... 

ALL .• 



SET 

ENTRY SWITCH 

TO DELET 



GET 

MODULE 

NAME, 

OPERAND 







.* IS *. 


YES 






». IT FIRST .• 
*. ENTRY .» 
























X 






» NO 


*TG * 
* A3« 

RLEND 


.X . 


X 




C3 ». 


#»»##C4**»**»» 










.♦ IS ». YES 


» SEJ • 




». IT FIRST ...... 


• ENTRY SWITCH » 




». ENTRY .• 


» TO RLEND • 










». .» X 








i NO *»#«# 








*SA * 








* CI* 








• • 


X 














ENTMAI 


• * 




X 


. 2 * 




#«*#»D3»»»»*«* 












• SET * 






* END OF RL « 






* SWITCH * 






* 


»••••** 







IS 
IT FIRST 

. ENTRY 



*#»#»F2«**«»*» 
« SET * 
• FIRST ENTRY » 
» SWITCH TO * 
•NOT FIRST ENTRY 



NNNNNNNNNNNNNNNNNNNNNNNNNN* 

• LOGICAL UNITS * 

» ARE CHECKED • • 

• FOR UNIQUE » 
» ASSIGNMENTS » 



OPEN 
SYSOOl 

AND 
SYSIPT 







.X. 

H2 • 

NO .»* END 
«. OF 






*. RL 


AINITC ) 
•OPN2SW 


: 

*SG» 


***Y 

* 2 Z..I 

AINITA .X. 
J2 * 

.»* IS 

*. RL ON 
«. SYSRLB 


» OPEN SYS002 » 



FIND START OF 

RL AND OPEN 

SYS002 



DOES ». NO 
RL .»... 

EXIST .» 



SET 

END OF RL 
SWITCH 



SET UP 

CCB TO 

READ FRCV 

SYSRES 



TEST 

ENTRY 

SWITCH 



• A1»CATAL 



* DEL 

Idelet 
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# » 


END ♦. 




QF .• 




RL .* 












• NO 






• 






• 2 


*.X 
















CATCMP 


.X. 




Bl •. 




.•OPERAND*. 


LOW .* 


:OHPARED TO*. 




\JEXT MODULE .» 




. HEADER .* 






X 


*. .* 




•EQUAL 






I * 












*** 






CATEN 


X 




t»CL********** 


•RSKIP TG* 


» 


SKIP MODULE • 




AND READ • 


?•♦ 


NEXT HDR • 



COPY MODULE 
AND READ 
NEXT HDR 



D2 *. 
TAPEMARK 



SYM OR 

REP 

CARD 



NNNNNNNNNNNNNNNNNNNNNNNNNN* 

• CARD IS NOT • • 

• AN OBJECT • • 

• CARD, TEST • • 

• FOR LINK EDIT • • 

• CONTROL CARD * * 



GET OPERATION 

CODE FROM 
CONTROL CARD 



COMPARE 
LENGTH 

ro 7 



SET 

END OF RL 

SWITCH 



SET 

END OF RL 

SWITCH 



CATTP 

Fl •. 

.♦OPERAND*. 

.♦COMPARED TO* 

*. LAST MODULE 

*. HEADER .* 



REWIND 
SYSOOl, 
SCRATCH 
TAPE 



OUTSEQ 

«»**»«G2* 
ERRRTN 



»*G3******* 

WRITE 

THIS CARD 

ON SYSOOl 



RCEICD 

«*»*«»G5* 
ERRRTN 



READ CARD 
FROM 
SYSIPT 



SKIP MODULI: 

ON 

SYSIPT 



* CI* 
ENTMAI 



* F2* 

AEND 



YES 

RCESD 



* YES 
'. RCRLD 



* OPERAND 

MISSING OR 
*. OUT OF . 

•.ORDER.* 
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DELET .X. 
Bl » 

.«" END 



OPERAND *. YES 
ENDS WITH ...... 

. .ALL .• 



.♦PREFIX *. 
,«DF LAST HDR*. YES 
». EQUAL TU ...... 

». OPERAND .« 



DELT 
LOW 



.X. 
Dl «. 

•COMPARE* 
OPERAND 
TO NEXT 
MODULE 

«. HDR .» 



DEPCMP 
LOW 



COMPARE 
3 CHARACTER 
. PREFIX 



DELTSK 

••••*E1» 

• RSKIP 



SKIP MODULE 

AND READ 
NEXT HEADER 



Fl «. 

TAPEMARK 



DELTCP 


X 




»«*»*E2 >••*••»• 




•RCOPY 


TG* 








• COPY 


MODULE 


• 


* AND 


READ 




» NEXT 


HEADER 


»* 



SET 

END OF RL 

SWITCH 



»SA • 
* CI* 

ENTMAI 



SKIP MODULE 

AND READ 
NEXT HEADER 



SET 

END OF RL 

SWITCH 



NOPRG 

«*#»»#H2* 
ERRRTN 



G3 *. 


►•♦••G4«»**»* 


.•PREFIX •. 

OF NEXT HDR*. YES « 
EQUAL TO ...... 

. OPERAND .« 


» SET 

» END OF RL 

» SWITCH 


». .* X 


>•*•••••»«*•• 



DEPCPY 

»»*»*E5*»*»*»*» 
•RCOPY T 

• COPY MODULE 

• AND READ 

• NfcXT HEADER 



F5 •. 

TAPEMARK 

***YES 



SET 

END OF RL 
SWITCH 



RDELtfR 

«**«*#H5» 
ERRRTN 
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MOVE FIRST 

ESD TO 

OUTPUT - 

BLOCK 



* ARE • 

ESQ ID 

NUMBERS 

EQUAL 



Dl *. 

» IS 
ESID 
COUNT 
BLANK 



• IS 
OUTPUT 
BLOCK 
FULL 



SET 
ESID 

COUNT 



RCWSUR 
NNNNNNNNNNNNNNNNNNNNNNNNNN**** 
* PACK ESD * * 

« CARDS INTO * * 

» A 162 BYTE ♦ » 

» RECORD * » 



MOVE 16 

BYTES TO 

OUTPUT 

BLOCK 



•»«»*E 4** ******* 

* PREPARE TO 
•MOVE REMAINDER 

* OF ESD INPUT 

* TO APPEAR AS 

* NEW ESD CARD 



READ 
CARD 
FROM 
SYSIPT 



ENTIRE 
INPUT 
MOVED 



*F4****» 

WRITE 

ESD 

RECORD 



» IS IT » 

ANOTHER 

ESD 

CARD 



OUTPUT 
BLOCK 
FULL 



»*»»»G 4* ******** 
•MOVE REMAINDER 

• OF ESD INPUT 

• TO APPEAR AS 

• NEW ESD CARD 



.« IS *. 

NEW ESD 

ID NUMBER 

. BLANK . 



»H2***»* 

WRITE 

ESD 

RECORD 

ON 
SYSOOl 



WRITE 

ESD 

RECORD 



* Kl« 
RCATAL 



* Kl* 
RCATAL 
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• MOVF FIRST 24 * 
« BYTES GF CARD • 
*TO OUTPUT BLOCK* 



NNNNNNNNNNNNNNNNNNNNNNNNNN»»**»E3» 



PACK RLC 

ENTRIES INTO 

A 162 BYTE 

RECCRD 



SET OUTPUT 

BLOCK BYTE 

COUNT TO 

128 



RCRLDE X 

* MOVE LAST 4 
•BYTES OF ENTRY, 
» REDUCfc BLOCK 
» BYTE COUNT 



.• ARE *. 

•THERE MORE 
ENTRIES IN 
•. CARD 



READ CARD 

FROM 

SYSIPT 



.* IS •• 

.•BLOCK BYTE 

. CUUNT LESS 

*. THAN R 



IS *„ 
•BLOCK BYTE 
COUNT LESS 
THAN 4 . 



» IS IT ». 
ANOTHER •. NU 
RLD .«... 
CARD .» 



RCRLDM X 

••••*F2**«««*«««« 

• MOVE 8 BYTES • 
•OF ENTRY, REDUCE* 

• BLOCK BYTE • 

• COUNT • 



WRITE RLD 

RECORD ON 

SYSOOl 



• ARE * 

RLD ID 

NUMBERS 

EQUAL 



WRITE RLD 

RECORD ON 

SYSOOl 



•MOVE REMAINING 

• BYTES TO 

• OUTPUT BLOCK 



RCRLDU X 

»«»»»G4**»»*** 

• FIRST 4 BYTES 

» ARE EQUAL TO • 

• LAST ENTRY 

» TURN ON SI ZE • 
» SWITCH • 



♦*»H3»«»«»«» 
INITIALIZE 
BLOCK BYTE 

CUUNT AND 
REDUCE 
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«»*A2»«***»* 

MOVE TXT 

CARD TC 

OUTPUT 

BLCCK 



.* IS *. 

CARD BYTE 
COUNT 
. ZERO 



REWIND 

SYSOOl 

SCRATCH 

TAPE 



RCTXTB X 

NNNNNNNNNNNNNNNNNNNNNNNNNN***«»C2 *««««*» 
SET BLOCK 



PACK TEXT 

CARDS INTO 

A 162 BYTE 

RECORD 



BYTE COUNT 
TO 136 - CARD 
BYTE COUNT * 



».*C3»*»«»»* 

WRITE 
TXT RECORD 



WRITE 
HEADER 



RCTXTC .X. 

D2 *. 
.* IS *. 

. "BLOCK BYTE 
». COUNT ZERO 



* Hl» 
RCATA 



RCPS2R 


X 




*DA**»*»*»* 




PEAD 




RECORD 




FRO M 


* 


SYSOOl 



READ CARD 

FROM 

SYSIPT 



» ARE «. YES 
ALL RECORDS .*.... 

*. COPIED .* 



RCTXTS .X. 

G2 • • 
.» CAN ». 
.* COMPLETE ». YES 
«. CARD BE .*.... 
*. PACKED . » 



• MOVE THE « 
« NUMBER CF « 
» BYTES OUTPUT « 
•BLOCK WILL HOLD* 



MOVE COMPLETE 

CARD AND 

REDUCE BLOCK 

BYTE COUNT 



WRITE BLCCK 

ON SYSOOl 

USING 

RCWRBK 



»«.**K2«»»»»»*»» 
•MOVE REMAINING 

• BYTES TC 

» OUTPUT BLCCK, 

• REDUCE BLOCK 

• BYTE COUNT 
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RCOPY 



••••••Bl»*»*«* 

WRITE 
• MODULE 
HEADER 
• ON 

SYS002 


• 
• 


• •♦• . 




• » • 

• 1 ».X. 

• * . 




• ••» . 
RCOPYL X 




• READ 
RECORD 
• FROM 
RL 


• 



IS 

MODULE 
COPIED 



READ NEXT 

MODULE HEADER 

» FROM RL • 



RLENDB X 

•••••B3**ft**»***» 
•RCOPY TG» 

•COPY MODULE TO • 
•SYS002 AND READ* 
• NEXT HEADER • 



WRITE 

TAP EM ARK 

ON 

SYS002 



» IS 
NEWVOL 
SWITCH 



••••A5«««****** 
RSKIP * 



X 






iC5»»*»»» 


••••• . 


SKIP 




• '. 


RECORD 






ON 






RL 






.X. 






D5 ». 


# 




IS 




• . NO . 


MODULE 




.*.... 



». SKIPPED .» 



Gl •. 

.» • 

• '. TAPEMARK 



INCREASE 

TAPEMARK 

COUNT 



••••Jl»»«ft« 
• RETURN 



• •••• 

• SL • 

• Bl» 



END • 


YES 


OF SYSTEM ...... 


INDICA- .« 




•.TION .• 


. 




X 


• NO 


• •••• 




•SL • 




• Bl* 




• • 








ANAL EN 



SET LIBRARY 

INDICATION 

TO S 



LOCATE SL AND 
OPEN SYS002 
IF NECESSARY 



*G5«*««» 
RSKPCT 



H5» 


< 

»••»» 


**••• 


RE 

CA 

FR 

SYS 


\D 
ID 
DM 
PT 




• : 


J5* 

E 
CA 


<. 

YD 
*D 


• 


"». NO '. 
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» CURRENT • 

SUEL IBRARY 
♦.SPECIFIED." 



RESET COUNT 

OF BYTES 

AVAILABLE IN 

OUTPUT BLOCK 



.» HAS ». 

.» MAINTS «. YES 

•PASSED DESIRED • 

*. SUB-LIB .» 



0UTUR2 

«••#». B5» 
CRRRTN 



CI ». 

.•PARTIAL*. 
.• BLOCK CF •. 
•LIST OF DELETS 
•.REMAINING.* 



.» BOOK NAME 
. LESS THAN 
•.LAST BOOK. 
♦.NAME .» 



SLtii-L i e 

DESIRED 
VALID 



UPRLRT 

••»•»• C5» 

FRRRTN 



WRITE BLOCK 

OF DELETES 

ON SYSOOl 



• UG * 

• G3« 

FINSHS 



ERROR 

MESSAGE 

3M32D 



SET CURRENT 

SUB-LIB NAME 

TO SUB-LIB 

DESIRED 



RESET 

DELETE LIST 

POINTER 



•MOVE BOOK NAME 

• FROM OPERAND 
•TO BOOK MAINTS 

• IS WORKING ON 



GET HOOK 

NAME FROM 

OPERAND 



SET 
CATALOG 
SWITCHES 



OPERATION 
DELET OR 
. CATALOG . 



LASLID X 

*««»*F5**«**«*»*» 

♦ INCREMENT * 
♦OPERAND POINTER* 
» PAST SUB-LIB • 

* QUALIFIER • 



.» IS IT *. 
NO .» THE FIRST 
...». ENTRY INTO 
«. MAINTS .) 



.* DOES •. 
.» OPERAND • 
•.HAVE A QUALI- 
•FIER A. OR • 



SBLMSG X 

*»*«»J2***»««« 

• SET SWITCH • 

♦ TO PRINT MSG » 
...X* TELLING WHICH 

* SUB-LIBRARY • 

• BOOK IS IN • 



• *»»*G3** *»♦•»»* 

• WAIT FOR 

• LAST OUTPUT 

• FROM PREVIOUS 
•DELET OR CATAL 

• OPERATIONS 



»*»»H3»»*»*»»» 

INITIALIZE 

BOOK TEXT 

OUTPUT AREA 

WITH NAME OF 

SUB-LIBRARY 



INITIALIZE 
FIRST OUTPUT 

AREA WITH 
NAME OF BOOK 



GETBKN 


.X. 




G5 ». 




* IS * 




BOOK NAME 




MORE THAN 


* 


8 CHAR 



OPRERI 

ERRRTN 



OPRfcRT 

••••••J4* 

ERRRTN 



• UB 

• Fl 

MVBCAT 



MOVE OPERAND 

TO BKCAT 

FIELD 
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SET SWITCHES 

FOR DELETE 

ALL 



* PUT SUB-LIB 
•NAME IN DELETE 

* LIST ENTRY 



♦ PUT SU3-LIB 
♦NAME IN DELETE 

♦ LIST ENTRY 



.X. 

CI *. 

.• IS IT •. 

• THE FIRST ». NO 
ENTRY INTO .*... 
*. MAINTS .» 




.* DOES ». 

.» OPERAND • 

.HAVE A QL'ALI- 

*. FIER A. .* 

*.OR C..» 

*"»*YES 



PUT ALL IN 
PLACE OF 
BOOK NAME 



♦ BLOCK OF • 

DELETE LIST 

». ENTRIES .• 

•.FULL .• 



WRITE 

BLOCK OF 

DELETES 



PUT BOOK NAME 

IN DELETE 

LIST ENTRY 



OPERAND 


«... . 


». ALL .» 










X 


• YES 






*UA • 




• Kl» 










.X. 

Gl *. 


MVBCAT 




.• IS *. 




.SUB-LIB SAME 


YES 


.AS MAINTS IS . 




».. WORKING .* 




•.ON .» 






X 


• NO 






♦ » 




• 1 • 








• •*• 


.X. 


DELOR1 


HI *. 


*»*»*«H2*»»*«»*»* 


.» HAS •. 


ERRRTN SF 


.» MAINTS *. 


YES ,-»_._»_._*_,_«_ 


PASSED DESIRED 


• X ERROR 


•. SUB-LIB .» 


• MESSAGE • 




3M33I 






• NO 


. 




. #»•• 








..X»UD 




* F3* 






.X. 


OPRERT 


Jl ». 


• *»«»«J2«***«««" 


.• IS «. 


ERRRTN SF 


.* SUB-LIB *. 


N q »_»_,_,_,_*_„_»_ 


DESIRED 


• X ERROR 


». VALID .« 


• MESSAGE • 


• . .* 


3M21I 



.X. 

G4 ». 

.» IS ». 

.» NEW BLOCK ». NO 

.TO BE STARTED.*... 

•FOR DELETE • 

•.LIST .» 

*»*YfcS 



•»»H4»«*»*»*» 
CLEAR BLOCK 

AREA, SET 
POINTER TO 
FIRST ENTRY 

POSITION 



PUT CURRENT 

SUB-LIB NAME 

IN DELETE 

ENTRY 



SET CURRENT 

SUB-LIB NAME 

TO SUB-LIB 

DESIRED 



•K4*«*»* 
RETURN 



Chart UB. Delete 
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» * UE-F5.JA 



•Bl**«»* 

WAI TS1 



WRITE 
DIRECTORY 
BLOCK ON 
SYS002 



PRERSW 



B5 



.X. 



WAS ». 

YES ."FIRST CARD *. 
...•READ AT END OF 
•.PREVIOUS .» 
•.BOOK .* 
X *. . * 
*♦*» « NO 



.X. 

CL *. 

.* I/O *. 

.» COMPLETE *. YES 

• FOR BOTH INPUT • ... . 

•.AND OUT- .» 

♦. PUT .* 

"• *NO 



SWOARA X 

#»»*»C3 ••*»•*••»* 
•REVERSE POINTER* 

• TO POINT TO * 

• ALTERNATE ♦ 

• DIRECTORY • 

• OUTPUT ♦ 



.X. 
C5 ». 
.» IS ». 
• THIS THE 

FIRST CARD 
*. OF A 
•.BOOK .» 

*«*YES 



WAITS2 X 




RECASW .X. 




• *»*»DL»»*"*» 


X 


D3 *. 




•REVERSE SWITCH 


*«*»D2»***«*«»» 


.* IS *. 




• SETTING * 




.» RECALM *. 


NO 


• INDICATING » 


* RETURN * 


•.SWITCH SET TO. 




• WHETHER TO GO* 




•.READ OLD .• 




•INTO WAI T STATE 




*. DIR .* 





«»**D5»******* 

ISSUE EXTRA 

GET TO CLEAR 

LAST DTFCP 

READ 



.•SWITCH SET 
». TO GO INTO 
». WAIT 
•.STATE.* 



• READ ». YES 

FROM DUMMY .*.... 
». LIB .* 



READ CARD 

OF 

BOOK 



•F2*»*** 
RETURN 



READ NEXT 

BLOCK OF OLD 

LIB DIR 



USING DUMLIN, 
READ BLOCK 
* FROM DUMMY 



WAITS3 

*»»*G1«*****» 

RESET SWITCH 
INDICATING 
WHETHER TO 

GO INTO WAIT 
STATE • 



»G3« 



REVERSE DIR 

INPUT POINTER 

TO POINT TO 

ALTERNATE 
INPUT AREA 



.BOOK FORMAT- . 
•TING REMAINING 
•. TO BE .* 
•.DONE .» 



BKWAIT 

•*«**J3« 
• WAITS1 



• COMPLETE I/O * 

* TO ALLOW MORE * 
•BOOK FORMATTING* 



» INCREMENT 

• CARD POINTER 
•BEYOND CONTROL 

• CHARACTER 



•NEW OUTPUT » 

BLOCK TO BE 
». BEGUN .* 



PUT BOOK NAME 
AND REMAINDER 
OF LAST CARD 
READ IN NEW 
OUTPUT BLOCK 



Chart UC. Do I/O 



K3 •. 

.♦ HAS •. 

.• LAST CARD ». YES 
«. BLOCK OF BOOK.*.... 
«. BEEN .» 

*.READ .* 

• . .• X 

* NO ** 
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* OUTPUT 

BEING SUP- 
». PRESSED 



* BOOK 

FORMATTING 
». DONE 



WRITE BOOK 

OUTPUT 

BLOCK ON 

SYSOOl 



.*DIR UPDATE «. NO 
.DONE FOR THIS.*... 
•. REQUEST .» 



IOFIN X 

•••••B5******* 
» RESET DIOMSK 
•FOR FIRST 

• THROUGH ON 

* NEXT REQUEST 



ME 



SWBOA X 

»»»»»C1»»*«**»*» 
» REVERSE BOOK 
•OUTPUT POINTER 

• TO POINT TO 

• ALTERNATE 
» OUTPUT AREA 



• Dl* 



INCREMENT 

CARD COUNT 

IF CARD 

COUNTING 

IS TO BE DONE 



.• IS *. 

SEQUENCE 
CHECKING 
.REQUESTED. 



.• IS *. 

• SEQUENCE 

NUMBER OUT 
*.OF ORDER . 



ERROR 

MESSAGE 

3M25D 



.SPRTM SWITCH 
.SET TO PRINT 
•. SUB-LIB .• 
». MSG .» 



.* SECOND *. 

.TIME FOR THIS. 

•. REQUEST .• 



SBLPRT 

ERRRTN 



UB-H2,K2 • 



• NU 
t«»«E3**«*»*>*«* 




SET CURRENT • 




BOOK NAME TO • 




LAST ENTRY IN • 




NEW DIRECTORY • 




* 




>•* ; 








• ».X. X 


• .X 



PRINT 

MESSAGE 

3M24I 



FRESET 

•••»»F3******« 

• RESET NOMNM* 
» AND SPRTM • 

• SWITCHES USED 

• DURING THIS • 

• REQUEST • 



2SW .X. 

G3 ». 
.« WAS ». 
.•DIR UPDATE *. YES 

•ROUTINE USED TO 

•.COMPLETE .* 
«. DIR .« 

• • .» X 

« NO •»• 



C5 *. 

.* WAS *. 
.THIS REQUEST 
. A DELETE 
». ALL .• 



*«»D5»»»***» 

RESET DIR 

TO ALLOW 

CATALOG TO 

CURRENT 

SUB-LIB 



RESET 
DELETE 

ALL 
SWITCH 



RSTSKP 

•••••F5******* 

• RESET SWITCH 

• TO SUPPRESS • 

• OUTPUT DURING 

• THIS REQUEST » 



CDVSW .X. 

G5 •. 
.« DID ». 
NO .THIS REQUEST 
...«. READ A CARD 
•.AFTER END.* 
•OF BOOK* 
X *. .• 

•*•* » YES 



.« IS ». 

,*DIR UPDATE •. 

•.DONE FOR THIS. 

•. REQUEST .• 



WAIT FOR 
DIR UPDATE 
COMPLETE 



•••••K I ••••*•**•• 

* IF NEW DIR • 

* OUTPUT BLOCK I S» 
•TO BE STARTED, • 

* CLEAR BLOCK » 
•AND PUT NEW ID • 



.* SECOND «. 

•.TIME FOR THIS. 

•. REQUEST .• 



J3 ». 

.» IS *. 

.» OUTPUT TO ». YES 

-BE SUPPRESSED.*.... 

•.FOR THIS .* 

♦REQUEST* 

*. .* X 

* NO •* 



.X. 

K3 *. 

.* WAS ». 

•THIS REQUEST 
. A DELETE 
«. ALL .« 



» SET SWITCH 
» PRERDM TO 
•INDICATE FIRST 
» CARD OF NEXT 
» BOOK WAS READ 



* CI* 
ENTMAI 



.* WAS *. 
NO .* CARD A *. 

MAINT CONTROL. 

*. CARD .* 



MOVE CONTROL 

CARD TO 

MAINT INPUT 

AREA 



* E4* EOBLKT 



Chart UD. End of Book 
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DIRSCN .X. 

Al •. 
.•OUTPUT *. 
.•SUPPRESSED 
♦. FOR THIS 
• . REQUEST .< 



•MOVE NEXT ENTRY* 

* IN OLD DIR • 

♦ TO NEW DIR • 



.• IS ». 

OPERATION 

A DELETE 

ALL 



.* IS ». 
.» OLD ENTRY ». YES 

•THE FIRST ENTRY 

».OF A SUB-.* 



.X. 



POINT TO 
NEXT ENTRY 
IN NEW DIR 



Dl 

.•UPDATE «. 
TO SUBLIB 
NOW BEING 

. READ 



.X. 
El •. 

.•NEW DIR*. 
• COMPLETE • 

UP TO 
». ENTRY .* 



POINT TO NEXT 

ENTRY IN BOTH 

OLD AND NEW 

DIRECTORIES 




.* END OF • 
. SUB-LIB DIR 
*. REACHED .* 



• OPERATION 

DELET, ALL, 
•.OR CATAL . 



.X. 

Gl «. 
.• IS *. 

• CATALOG TO • 
REPLACE A 

•BOOK IN OLD* 
*. LIB .♦ 

"»*YES 



.END OF BLOCK 



XITSET 

»»*»#K1»»**»»» 

• SET SWITCH • 
•FOR DIR UPDATE 

• FINISHED FOR 

• THIS REQUEST • 



CLEAR NEW 

DIRECTORY 

ENTRY 



IN OLD DIR ...... 

*. REACHED .• 


***YES '. 


X '. 
•»»G4»***»*» 


SET SWITCHES * I 
TO READ ♦ 
OLD DIR • 


##»#*»»»*»•» . 


Ix " 



••••F5>«*««»* 

SET SWITCH * 
RECALM ON TO * 
READ OLD DIR 
AFTER WRITING* 
NEW DIR • 



X 
•••»*Hl»»»»»«*« 

• SPACE OVER 

• ENTRY IN 

• OLD DIR 


* 


.X. 

H2 *. 
.* WAS *. 

.♦ ENTRY TO ♦. NO 






♦ . IN OLD .• 

*. DIR .« 

*'**YES 

X 

#»*»»J2»*»»«***«» 

• POINT TC • 

• NEXT ENTRY » 

• IN OLD DIR • 


DELORl > 

ERRRTN 

ERI 

* MES5 

3M 




IBKNM X 

• •••• J 1»» »•»»**»* 

• MOVE NEW BOOK * 

• NAME TO NEW • 

• DIR ENTRY AND * 

• POINT TO NEXT • 
•NEW DIR ENTRY • 


OR 

>AGE * 
31 



.* END 


• 


YES 


. OF NEW DIR 






«. BLOCK . 












« . .* 




X 


* NO 




• UC • 

* B3« 

* * 

WAITDO 


.X. 






J4 •. 






.• IS *. 






.» SWITCH ON 




YES 


. TO READ OLE 






♦.DIR BLOCK. 












» . .» 




X 


• NO 




• UC • 

• B3* 


X 












* • 




WAITDO 



Chart UE. Update Directory 
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•SET BYTE AFTER » 
•LAST IN CARD TO* 

• BLANK IF NON- * 

• BLANK, NON- » 
•BLANK IF BLANK • 



.* HAS ». 

MEND CARD 
BEEN READ 



.•SAVING ». 
.• SPECIAL *. YES 
•.BLOCK WRITTEN.*.... 
♦.FOR LAST .• 
• .CARD .» 

• . .« X 

• NO •»• 



SCAN FOR END 
OF NON-BLANK 

FIELD, MOVE 

FIELD TO SAVE 

AREA 



•NNNNNNNNNNNNNNNNNNNNNNNNNN 

• • CARD IMAGE • 

• • COMPRESSION • 

• • LOOP BEGINS • 

• • HERE • 



LCDPR1 




.X. 
B5 ♦ 
• IS 


YES 




OUTPUT 






BLOCK 


. 


• • 


FULL 



IS 

INPUT 

CARD 

BLANK 



.X. 

Dl *. 

.* HAS • 

BKEND 
OR MACRO 
. BEEN 
• .READ .« 



END 

OF 

CARD 



• SCAN FOR END 
•OF BLANK FIELD 

• THAT FOLLOWS 

• NON-BLANKS 



REBLOCKING 

LOOP FUR 

COMPRESSED 

INPUT BEGINS 

HERE 



.X. 


BKNDCK 


.X. FLGBLN X 


El *. 




E2 «. 


»«»«»E3«*«**« 










IS 


». YES .» 


IS •. YES 


• PUT NUMBER 


OPERATION 




OPERATION 


• OF BLANKS 


BKEND 




BKEND .* 


• IN FLAG 








• BYTE 




X 


*. .« X 




• NO 


• • »»» 


» NO •••** 






• UG • 


•UG • 






• CI* 


* A3* 






















LCDPRC 


BKNDPR 




.X. 


MACCK 


.X. 


.X. 


Fl •. 




F2 ». 


F3 ». 










WAS 


•. YES .» 


IS *. YES 


.» END 


HEADER 




OPERATICN .*.... 


». OF OUTPUT 


BKEND 


* . * 


MACRO .• 


•. BLOCK 



MOVE FLAG 
AND ANY NON- 
BLANKS TO 
SAVE AREA 



.« WILL 
». THEY FIT 
*. OUTPUT 
•.BLOCK. 



IS 

OPERATION 
. MEND 



»»*H1*»«**»* 

SET SWITCH • 

TO INDICATE 

MEND CARD 

WAS READ 



Jl *. 






.* HAS *. 






BKEND OR ». NO 






MACRO BEEN .*.... 






. READ .» 


















* YES 


















*.X. 


















.X. 


NOBHDR 




Kl *. 


#•*«». K2* 




.* IS *. 


ERRRTN SF 


INPUT IN •. YES 




COMPRESSED .• 


HEADER 


. FORM .* 


* 3m: 


>5D • 



••*»*G3******* 

• SET ADDRESS* 
« SWITCH TO * 
•SAVE REMAINOER 

* OF CARD • 



• SET ADDRESS* 

• SWITCH TO • 
•SAVE REMAINDER 

• OF CARD • 



•• IS *. 

* ADDRESS 
SWITCH SET 



»**..J3* 
* MOVE FLAG • 
•AND NON-BLANKS • 
•FROM SAVE AREA * 
•TO OUTPUT BLOCK* 



• IS * 

ADDRESS 

SWITCH 

SET 



•»»«*H5*»*****««* 
• MOVE FLAG * 
•AND N NON-BLANKS * 
•FROM SAVE AREA * 
•TO OUTPUT BLOCK* 





COMPRESSED 

». INPUT . 

•.CARD .• 



.• IS 
YLS .» OUTPUT 
...«. BLOCK 
*. FULL 



Chart UF. Compress Book 
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. ♦ ARE * 

OPERANDS 
ON BKEND 
. CARD 



1 .X. 
Bl ♦ . 
.♦ IS ♦ . 
« OUTPUT 

BLOCK FULL 

«. WITHOUT . 

♦ .MEND .» 



SCAN 

FOR 

OPERAND 



SET END 

OF BOOK 

INDICATION 



« OUTPUT 

SUPPRESSED 

♦.FOR THIS . 

♦.BOOK .♦ 



.1ST OPND 
• X. 
D2 ♦. 

.♦ BOOK •. 
NAME SAME •. YES 
AS CATAL .*. 

. CARD .• 



♦ IS 

OPERAND 
♦.SEQUENCE 



IS ». NO 
OPERAND ...... 

VALID .» 

♦NUMERIC* 



WRITE 
LAST BLOCK 

OF BOOK 



BNDERR X 

♦♦♦♦♦#E2»*»^*» 
ERRRTN 

ERROR 
♦ MESSAGE 
3H23D 



SET SWITCH 
TO CHECK 
SEQUENCE 

NUMBERS 



• ••♦»E4*^***" 

♦ SAVE CARD * 
♦COUNT OPERAND , 
» SET SWITCH 
♦TO COUNT CARDS 



• **E5*>»"«« 

SET SWITCH 

TO READ 

INPUT IN 

COMPRESSED 

FORM 



RESET 
CATALOG 
SWITCHES 



G3 ♦. 

♦ IS ♦ 
THERE A 
LIST OF 
DELETES 



WRITE 

OELETE LIST 

BLOCK ON 

SYSOOl 



CNTERR X 

USING REPOS, 
♦ BACKSPACE 
SYSOOl TO 
♦ START OF 
BOOK 



♦WRITE TAPEMARK 
AND REWIND 
♦ SYSOOl * 



Chart UG. Analyze BKEND 



♦ ♦♦^♦♦♦♦•♦» 

IIMIT IALIZE 

DIR UPDATE 

ROUTINE TO 

COPY REST 

OF DIR 



Charts 
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WRITE LAST 
BLOCK OF 
DIRECTORY 



.« BOOK NAME ». 

•THE FIRST NAME 

•IN SUB-LIB • 



»**»»B1******»>*« 

READ FIRST 

•BLOCK OF SYSOOl« 

AND FIRST 

• BLOCK OF • 

SL 



• IS • 

SYSOOl 

REQUEST 

CATALOG 



###*»D1*« *••••♦• 

WRITE TAPEMARK 

• AND 

READ 

» ANOTHER ♦ 

BLOCK 



**»E1»»»»*»*« 

CALCULATE 

LENGTH OF 

RECORD READ 

FROM SL 



• DELETE 

IN CURRENT 
». SUB-LIB . 



.* IS ». 

OPERATION 

DELETE 

ALL 



«»»E3**«**»* 

SET SWITCH 

TO 
DELETE 



CATALOG 


* 


NO 


IN CURRE.NT 






. SUB-LIB . 


• 


. 












X 


• YES 




*UJ* 
♦ C2 


X 












• • 




CPYS 



.♦ ARE •. 

•ALL UPDATES*. 

FROM SYSOOl . 

•.COMPLETE .» 



.X. 



G3 

.•COMPARE*. 
• LIB AND • 

SYSOOl BOOK 
•. NAME .• 



.• WAS ». 

DELETE 

JUST 

.COMPLETED. 



»»#K1»*»*»»* 
SET SWITCH » 

THAT ALL 

UPDATES ARE 

COMPLETE 



CALCULATE 

LENGTH OF 

REC READ 

FROM SYSOOl 



.« ANOTHER «. YES 
•.DELETE LISTED.*.... 
». IN THIS .• 
•.BLOCK.* 



READ ANOTHER 
RECORD FROM 
• SYSOOl 



.•HAS END*. 
•OF SUB-LIB • 

BEEN 
•. REACHED .• 



YES .» BOOK NAME * 
...•.THE LAST ONE 
•IN SUB-LIB • 



Chart UH. Finish Directory 
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.♦UPDATE FOR » 
•.CURRENT SUB- 
♦. LIB .* 



•UH-Gi,Kl*»»» . «UH » 
A3,C3« » . * J3» 
C4,G3« • *.X. * * 
G4 » » . * 

«••« . STPSCl 
CPYS X 

YES * WRITE BLCCK « 
FROM 1 TR DN 






• SYS002 « 













*««*C4»*«»**»»**NNNNNNNNNNNNNNNNNNNNNNNNNN 

OPEN SYSOOl, • LOGICAL UNITS * 

SCRATCH TAPE, * * ARE CHECKED * 

AND PRIVATE * FOR UNIQUE » 

•LIBRARY TAPE * * ASSIGNMENT • 



♦ READ 

FROM DUMMY 
*. LIB 



• READ «. YES 
FROM DUMMY ...... 

«. LIB .* 



•AN EXISTING* 

LIB TO BE 
*. UPDATED .» 



AND PRIVATE 

LIBRARY 

TAPE 



»***E3**»»»*»» 

USING DUMLIN, 

READ BLOCK 

FROM DUMMY 

• LIB 



» CI* 
MLOOP 



FIND START 

OF SL AND 

OPEN SYSOOl 



»»#F4»*»»»«* 
READ FIRST 

BLOCK OF 
FIRST SUB- 
LIB DIR 



USING DUMLIN, 

READ FIRST 

BLOCK FROM 

* DUMMY 

LIP 



SET SWITCH 

TO READ 

FROM DUMMY 

LIB 



,...G1» ***»»»« 

USING DUMLIN, 
READ BLOCK 
FROM DUMMY 
• LIB 



WRITE BLOCK 

READ FROM 

SYSOOl ON 

SYS002 



READ BLOCK 
FROM 
SYSOOl 



Chart UJ. Build New Library 
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***B2***»* 
OPEN 
SYSRDR 

AND 
SYSLST 



TURN ON 
FIRST 
CARD 

SWITCH 



.• HAS *. NO 
». FIRST CARD .*... 
♦.BEEN READ." 



.* IS *. 

OPERATION 

CODE 

. OSPLY . 



.* ARE • 
•.ALL OPERANDS 
♦.PROCESSED.* 



GET POSITION 
AND LENGTH OF 
FIRST OPERAND 



*E2****»* 

READ 
LIBRARY 
CONTROL 

CARD 



GET POSITION 
AND LENGTH OF 
NEXT OPERAND 



EOF, 

CARD IS 

A /» 



IS 

OPERAND 
ALL 



TURN ON * 
ALL DIRECTORY 
SWITCHES * 



EMAINS X 
•».*«G2»« 
•INITSHL 



GET POSITION 

AND LENGTH 
OF OPERATION 



* DSPLY * 

CL 
». DIRECTORY.* 



**G5«* 

TURN 

CL 

DIREC 

SWIT 



.* OPERATION * 
••CODE STOPPED 
».BY BLANK .* 



•DIRECTORY.* 



ERROR 

MESSAGE 

3D100 



DSPLY *. 
SL 

.DIRECTORY.* 



FRROR 

MESSAGE 

3D10U 



Chart VA. 



Read Control Card 
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FRSTCH 



•C4»«»*» 
NXTOPR 



»#D2*«»«*»* 

GET ENTRY 

POINT FCR 

FIRST 

OPERAND 



.•CHARACTER A* 
• - COMMA, BLANK 
*.OR EQUALS.* 
•.SIGN .* 



INCREASE 

CHARACTER 

COUnlT, LOOK 

AT NEXT 

CHARACTER 



SAVE 

POSITION 

OF NF.XT 

OPERAND 



LOOK AT 

NEXT 

CHARACTER 



.» HAS •• 

* MAXIMUM • 

LENGTH PEEN 
*. EXCEEDED .* 



*F5*««»* 
RETURN 



.» HAS «. 

• MAXIMUM »« NO 
LENGTH REEN -».. 
•.EXCEEDED .« 



RETURN 



Chart VB. 



Scan Subroutines 
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DONPRT .X. 

Bl •. 
.» DONT ». 

.* PRINT /« * 
••CONTROL CARD 
». SWITCH .» 



•»»»CL»***»»»« 

PRINT 

LAST CONTROL 

CARD 



«C3*«»»«« 

PRINT 

MESSAGE 



#CA»*#»» 

SVC 6 

CANCEL 



*»Dl»*«»»*» 

GET ERROR 

MESSAGE, 

SET UP 

CCW 



1052 
ASSIGNED 
.AS SYSLOG. 



TURN ON 

MESSAGE 

SWITCH 

N0P1 



ANSWER X 

••*ft*«E3*«»*»«»« 

GET OPERATOR 
« REPLY 
FROM 
» SYSLOG 



.* IS *. 

.» SYSLST ». 

.ASSIGNED SAME. 
».AS SYSLOG.* 



.« IS *. 

ANSWER 
CANCEL OR 
. BLANK 



PRINT 
CONTROL 
CARD ON 
SYSLOG 



TURN ON 

CANCEL 

SWITCH 

N0P2 



« IS 

ANSWER 
«. IGNORE 

***N0 


«. YES 


X 

•♦«H3»«*»** 

TURN ON 

ERROR 
SWITCH 


,* * 


3 ».xl 




• »« 





«K3*»*«« 
RETURN 



Chart VC. Error Message Subroutine 
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* FIND LOGICAL 
» UNIT FOR 
•SYSRES, SYSRLB 

* OR SYSSLB 



I * 


.* IS «. 

.» THE UNIT ». YES 
*.SAME AS LAST ...... 

». USED .» 

*«*NO r 




IOREW X '. 




» OPEN * 

LIBRARY 

« TAPE * 











EQUAL .« COMPARE * 
...». FOR LIBRARY 

». NAME .* 



RDAFM 

»EXCP 



READ 

NEXT LIBRARY 

HEADER 



SET LIBRARY 

NOT FOUND 
INDICATION 



FNDL2 

*»*«»HA» 
*EXCP 



BACK UP 

TO START 

OF LIBRARY 



Chart VD. Find Library Subroutine 
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Charts 



299 



•A3**** 

EXCP 



••*R3* 
SET SWITCH 

TO WAIT 
AFTER EXCP 



SET LOGICAL 

UNIT IN 
CCB 



« IS 
UNIT 
SYSRES 



TSTMV 

NNNNNNNNNNNNNNNNNNNNNNNNNN*** 

* DOES NCT EXCP * 

* IF CCMREG * * 
« INDICATOR IS * 
•' RESET, BIT I * 

* OF BYTE 56 * 



REPOSITIONED 

BEFORE EXCP 

WILL PE 

ALLOWED 



IF PROG FETCH 

•DID NOT MOVE • 
SYSHES, EXCP 



COMRE 

INDICA 

. RESE 



DESIRED 

CHANNEL 
PROGRAM 



RCOVER 

WTSW .X. 
G3 • 



RESET 
WAIT 
SWITCH 






•K3**«»* 
RETURN 



Chart VE. Execute Channel Program Subroutine 
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SAVE CALLER 
REQUEST 
STATUS 



RSTPOS 
NNNNNNNNNNNNNNNNNNNNNNNNNN**" 

♦ SETS COMREG * 

♦ INDICATOR TO * « 

♦ SYSRES NOT * 

♦ MOVED BY ♦ » 

♦ PROGRAM FETCH * 



.* IS ♦ . 

.» SYSRES « 
.♦.BEFORE FIRST 



TURN ON 
RECOVER 
SWITCH 



REWIND 

SYSRES TO 

LOAD POINT 



F3 ♦ . 
.* IS ». 

* SYSRES 

AT CORRECT 
♦.TAPEMARK . 



G3 ♦ . 

.•COMPARE*. 
♦DESIRED TM 

COUNT TO 
♦.POSITION . 



BSFRTN 

•••••Hl*»* 
♦ EXCP 



BACKSPACE ♦ 

SYSRES TO ♦ 

A TAPEMARK ♦ 



DECREASE 

TAPEMARK 

COUNT 



BACKSPACE 

SYSRES 1 

RECORD 



DECREASE 

RECCRD 

COUNT 



.♦COMPARE*. 

.♦DESIRED REC^. 

*. COUNT TO .♦ 


HIGH 






♦.POSITION .♦ 








"♦EQUAL 








X 

* TURN OFF *♦ 

* RECOVER ♦ 

* SWITCH ♦ 




FSRRTN 

♦ EXCP 

♦ FORWAR1 

♦ SYSRE 

♦ RECC 


< 

n». ****** 

) SPACE * 
: S 1 * 

3RD ♦ 



FORWARD SPACE 

SYSRES TO 

A TAPEMARK 



INCREASE 

TAPEMARK 

COUNT 



INCREASE 

RECORD 

COUNT 



Chart VF. Reposition SYRES for EXCP 



Charts 
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SET SWITCH 
IN ERROR 

ROUTINE TO 

NOT PRINT 

/• CARD 



.• IS CL ». 

DIRECTORY 
SWITCH ON 



CORPHS X 

*»*»*»C4»»«*»»* 
READ PHASE 
* HEADER 
FROM 
• SYSRES 



.» IS RL ». 

DIRECTORY 
SWITCH ON 



INITIALIZE 

EXCP ROUTINE 

FOR SYSRES 



.X. 

D4 ». 

.» IS IT ». 

LAST 

RECORD IN 

CL 



El ». 
.* IS SL •. 

DIRECTORY 
SWITCH ON 



» J 2* 
NDSPLY 



RE LOIR 

PRTHDR X 

••••••E2*»»««*»» 

SKIP TO 1 
YES • PRINT CL DIR 

HEADINGS ON 

• SYSLST 



•F2"»«* 

PRINT 

PSEUDO 

IPL 

PHASE 

NAMES 



•»G2*«»»»* 

SKIP 

IPL1 AND 

IPL2 ON 

SYSRES 



»*»H2*»**»«» 

READ AND 

PRINT 

SUPERVISOR 

PHASE 

NAME 



END 
OF 
. PAGE 


• * 


NO 


"**YES 






X 






SKIP TO 1, 

PRINT CD 

HEADINGS 

ON 

SYSLST 


* 


* 


Ix... 







CONVERT 4 

ADDRESSES IN 

HEADER TO 

HEX 



FINCOR 

••••••E5****»*«* 

DOUBLE SPACE, 
• PRINT END 
OF CL 
• DIRECTORY 
DSPLY 



TURN OFF * 
CL DIRECTORY 
SWITCH 



»*«H4»#***«* 

CONVERT 3 

BYTE COUNT 

FIELDS TO 

DECIMAL 



FSFINS 

»**«»J2»«»««»»»«« 
•EXCP _ VE» 

• FORWARD SPACE » 
» SYSRES TO 1ST » 
» PHASE HEADER • 



UPFMCT 

•»«»»K2«*«**»«*» 

• RESET RECORD 

* COUNT TO 0, 
» ADD 1 TO 
•TAPEMARK COUNT 



» FORWARD SPACE 
• SYSRES TO NEXT 
« PHASE HEADER 



Chart VG. Display Core Image Directory 



302 IBM S/360 BOS System Control (16K Tape) 



RELDIR 

•**.«A3» 
•SKIPTO 



FIND RL 

IF ON 
SYSRES 



WAS ». NO 
RL .*... 

FOUND .« 



ANOTHR X 

»**»»»C3»»*«**»»»»» 

SKIP TO 1, 

•PRINT DIRECTORY* 

HEADINGS 

» ON SYSLST • 



ERROR 

MESSAGE 

3D43I 



END *. NO 
OF .«... 
PAGE .» 



FINREL 

»»*»»»G4***»*»*» 
DOUBLE SPACE, 
* PRINT END 
OF RL DIR 
* DSPLY 



EDTMOD X 

*#*»»H3*»*«»»*» 
» CONVERT 

* RECORD COUNT 

* TO 

* DECIMAL 



*«»»H4******* 
TURN OFF • 
RL DIRECTORY 
SWITCH 



PRINT MODULE 

NAME AND 

RECORD 

« COUNT 

ON SYSLST 



BACKSPACE 

RL OVER 
TAPEMARK 



FORWARD SPACE 

RL TO NEXT 
MODULE HEADER 



SUBTRACT 

1 FROM 

RECORD 

COUNT 



Chart VH. Display Relocatable Directory 



Charts 



303 



SOURCE 

••*«»A2» 
•SKIPTO 



FIND SL 

IF ON 
SYSRES 



WAS 
SL 

FOUND 



NUPAGE X 

SKIP TO 1, 

•PRINT DIRECTORY* 

HEADINGS 

* ON SYSLST « 



. NTONTP 

ERRRTN 



ERROR 

MESSAGE 

3D47I 



• NEW 

SUBLIBRARY 
•. NAME 



MOVE 
SUBLIBRARY 

NAME TO 
PRINT AREA 



»««E2***««**» 

READ RECORD 

FROM SL 

DIRECTORY 



END 

OF 

PAGE 



SKIP TO 1, 
PRINT SD 
HEADINGS 
ON SYSLST 



F2 *. 
.» IS IT ». 

••THE SL DIR * 
.HEADER LABEL 



.« END *. 

* OF 
SUBLIBRARY 



X 
* 1 



G2 «. 

.• IS IT *. 
••THE SL DIR *. NO 
.TRAILER LABEL.*... 



MOVE BOOK 

NAME TO 

PRINT AREA, 

PRINT LINE 

ON SYSLST 



»#»»G5»»»*«»*» 

TAKE EXTRA 

SPACE 

BETWEEN 

•SUBLIBRARIES 



DOUBLE SPACE, 
PRINT END 
OF SL DIR 
* DSPLY 



CLEAR PRINT 

AREA, MOVE 

NEXT BOOK 

NAME TO PRINT 



»J2**»*»* 
SPACE 1 
LINE ON 
SYSLST 



Chart VJ. Display Source Statement Directory 
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RSERV 



• IS 

SYSPCH 
A 2540 



.» ANY *. 
* PUNCHING •. NO 
DURING JOB .»... 



• C2»««« 

SET 

CRDSWT 

FOR A 

2540 



USING PSUB2, 
PUNCH A 
/« CARD 



AINITS X 

»**«»D2 »•♦»•»••* 
•SKIPTO _ WK 

•FIND BEGINNING 
• OF RELOCATABLE 
» LIBRARY 



ft«»«E4«*«»**» 

USING PSUB2, 

PUNCH A 

BLANK CARD 

* TO STACK 

/« CARD 



AINITT X 

•••*»*F2»»«*««»« 

USING GETCTL, 
» READ CONTROL 
CARD FROM 
• SYSRDR 



NOLIB 

*»#*»*F3» 
ERRRTN 



ERROR 

MESSAGE 

3R431 



»*»F4«»»»« 

SVC14 
EOJ 



NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ». 

• THIS TEST IS » .* IS ». 
•MADE IN LOGICAL* .* CNTL CARD 
» IOCS CPMOD • *. A /*, 

* MODULE • •. EOF 



»G3»»»»* 

SVC 6 

CANCEL 



CPSLSH 

♦..♦»H2* 
•GETFLD 



EXTRACT 

OPERATICN 

CODE 



.X. 

J2 •. 

.» IS •. 

OPERATION *. 
CODE 
. PUNCH .* 



.» OPERATION 
«. CODE 

• . DSPLY . 



.• IS *. 

OPERATION 

CODE 

. DSPCH . 



SET 

PUNCH 

SWITCH 



PRTSWT X 

••••*K3»*>*« 

» SET 

• PRINT 

• SWITCH 



SET 

PRINT 

AND PUNCH 

SWITCHES 



ERROR 

MESSAGE 

3R10D 



Chart WA. Read Control Card 



Charts 
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•WA-K2,K3,K4 



INITIALIZE 

ADDRESS GF 

SAVE AREA 



»«*B4»**»«*»* 

STORE * 

AT END OF 

OPERANDS 

AS A MARKER 



EXTRT1 

•*««»C2* 

•GETFLD 



C4 ». 

.» IS * 
OPERAND 
SUFFIX 

. .ALL 



.» MAXIMUM * 
. CARD LENGTH 
♦.EXCEEDED .» 



TURN ON 

.ALL 

NUMBER 1 

SWITCH 



.» IS • . 

•FIRST BYTE 

BLANK OR 



.* FIRST *. 
• •3 CHAR SAME* 
. AS IN LAST 
• . MODULE .» 



ILOPRD 

•»**».FL» 

ERRRTN 



ERROR 

MESSAGE 

3R21I 



TURN ON 

END OF RL 

SWITCH 



* F2« 

• » 

AINITT 



IS 

OPERAND 
ALL 



CPLSOP .X. 

G4 *. 
.* HAVE *. 
.• ALL «. YES 

♦.OPERANDS BEEN.*.... 
•.PROCESSED.* 



•»»H2«»**»«» 

MOVE 

OPERAND TO 

SAVE AREA 



»H3***»*» 
TURN ON 

ALL 
SWITCH 



J2 ». 

.•ARE ALL*. 

. » OPERANDS «. 

.MOVED TO SAVE. 

». AREA .* 



• B5« 
DRASFN 



Chart WB. Analyze Operands 
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.* FIRST *. 

TIME ». YES 
THROUGH .*.... 



TURN OFF 

OPERATION 

CODE 

SWITCH 



.» IS * 

FIELD 
LENGTH 9 



♦SECOND • 
TIME 
THROUGH 



* TURN OF 

* FIRST 

* OPERAND 
» SWITCH 



»»«C 3 »*»**»« 

INCREMENT 

FIELD 

LENGTH 



GETFSI 

*»»«»C 4* «»*»*» 

* LOOK 

* AT NEXT 

* CHARACTER 



LOOK 
AT FIRST 
CHARACTER 



.X. 

D3 * 

END 

OF 

CARD 



« COMMA 

OR 
». BLANK 



RETURN 



.* END 
OF 
». CARD 



*»«F5»***»»« 

SET END 

OF OPERAND 

SWITCH 



»»G1***»*»* 

LOOK AT 

NEXT 

CHARACTER 



» 5 

GETFSN* 



TURN ON 

CARD 

OVER FLOW 

SWITCH 



SAVE ADDRESS 
OF NEXT 
OPERAND 



.X. 
J3 » 

.»" END 

OF 
». CARD 



SAVE ADDRESS 
OF FIRST 
CHARACTER 



Chart WC. Scan Subroutine 



»»K3»»**»»* 

INCREMENT 

CARD 

POINTER 

ADDRESS 



Charts 
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TURN ON 
COMPARE 
SWITCH AT 
CMPMBR 



INCREASE 

RECORD 

COUNT 



CMP2E4 .X. 
CI 
.» IS *. 
.» ALL 
». SWITCH ON 



EXCP WL 

BACKSPACE 
* 1 RECORD • 



.»IS .ALL* 

SWITCH 

NUMBER 1 



.X. 

03 *. 

.« IS •. 

* OPERAND « 

COMPARED TO 

*. MOD HDR .« 

».HIGH .* 

***N0 



DECREASE 

RECORD 

COUNT 



.X. 

EL ». 

.» DOES ». 

.» PREFIX OF *. YES 

.OPERAND EQUAL.*.... 

*. MODULE .* 

*. HDR .• 

'•"no 



PRTNME X 

ERRRTN 

ERROR 
* MESSAGE 
3R27I 



PRTHDR-4 

•••*«F2*>»«*«» 

* TURN ON * 

» .ALL SWITCH 
» NUMBER 2 



READ 
NEXT MODULE * 
HEADER 



•••F5*»****« 

TURN OFF » 
END OF RL 
AND COMPARE 
SWITCHES 



»*Gi»*****» 

TURN OFF 
BOTH .ALL 
SWITCHES 



-X. 

G3 ». 

TAPEMARK 
*«*YES 



READ 

FIRST 

HEADER 



OPERAND 


». YES 


EQUAL TO 




MODULE 




•. HDR .* 






X 


» NO 






• WE » 




* Al» 


X 


• • 






• • 


PRTHDR 



#»#H5******* 

SET 

RECORD 

COUNT TO 1 



Chart WD. Locate Module Header 



WAIT FOR 

I/O 
COMPLETE 
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* 6 «.X. »WD-C1,F2,H1 
PRTHDR .X. 



USING PRTSSK, 

SKIP TO 1, 

PRINT 

* HEADING 



-•SYSRDR ». 
NO .*AND SYSPCH «. 
...«. SAME DEVICE .* 



PUNCH 
BLANK 
CARD 



USING PCHSUB, 
* PUNCH 
CATALR 
* CARD * 



USING RDTAPE, 
READ RL 
RECORD 



• 


RLD • 


. YES 




CARD 




*• 


• . .•** 


* 






X 




• NO 


*WG 








• Al 
















* 




X 


RLDP 


#» 


»B3«**»»»»« ►♦» 


US 


ING PCHSUB, 






PUNCH 






THE 






CARD » 



TSTPRT .X. 

C3 • . 

•IpRINT SWITCH* 
*. ON .« 

***YES 



.•PHASE, ». 

•INCLUDE, OR* 

END CARD 



YES 


* 


ESD 


...» 


» 


CARD 


. 




*. 


X 










♦ 


•WF • 






• A5» 












» 






ESDPRT 




.X. 
F3 




.* 


YES 


• 


TEXT 






CARD 



• WH # 
« A3« 






TXTPRT 

.> 
G3 

YES .•* Rl 
...«. CAF 


D 

ID 



• < 


•WF-B5 ••* «... 




WG-B4 • ♦ • 








EXTK3 X 




»»»»«A5 »•**»»•»*« 




• MOVE • 




• CARD IMAGE • 




* TO PRINT • 




* AREA • 




♦ • 




***• * »•»• 






WF-H5 


••• *.X.X.» 4 • 


WG-C4 




WH-H2 


D3,D5 ••»» . ••»• 




PRT1 X 








USING PRTSUB, 




• PRINT THE • 




LINE 




• • 




• ••» 








» 5 • .X. 












EOMTST .X. 




C5 •. 








NO .» END OF •. 




...». MODULE .♦ 



RDRD2 
NO .* 



READ 

NEXT 

HEADER 



TURN ON 

END OF RL 

SWITCH 



%iuii»>iit\tt 



PRTHUT 
YES .•' 



• IS *. 

ALL 
SWITCH ON 



TSTPCH .X. 

HI ». 
.» IS *. 
.» PUNCH 
*. SWITCH ON 



ESD 


• 


YES 


CARD 


>s 


* ... . 


.» 




. 


• . .* 




X 


• NO 




• WF 

• Al 


.X. 




ESDP 


1 *. 












TEXT 




YES 


CARD 




• ... . 



REP 


.•REP OR SYM 


». 


SYM 


...» 


CARD 


...... 


















X 


». .* 




X 


«*•• 


• NO 






WH • 






• WH • 


B5» 








• B3» 






















EPPRT 








SYMPRT 




X 








h«»*J3»*»»*» 








MOVE 








END 








TO PRINT 








AREA 







•«»K3»»»««>« 

CONVERT 

ORIGIN AND 

ESID TO 

HEX 



YES .*.ALL SWITCH* 
...*. NUMBER 1 

♦ . ON .» 



POINT 
TO NEXT 
OPERAND 



• C4» 
IFDOT 



Chart WE. Analyze Relocatable Library Record 



Charts 



309 



* IS * 

ESID NUMBER 
*. BLANK .• 



STORE ESD 

NUMBER, FIND 

BLOCK ENTRY 

COUNT 



CONVERT BYTE 

COUNT TO 

DECIMAL AND 

ESID HEX 



* 4 
EDPCLI 



SET MAXIMUM 

ENTRIES 

PER CARD 



B5 *. 
.* IS *. 

» ESID 

BYTE COUNT 
*. ZERO 



MOVE ESID 

NUMBER TO 

PUNCH FIELD 



El *. 
.* IS ». 

♦INPUT BLOCK* 

BYTE COUNT 
••LESS THAN.* 



INCREMENT 

PUNCH BLOCK 

ESD COUNT 




CONVERT 

ESID 
NUMBER 
TO HEX 



MOVE LABEL 
AND ESD 
TYPE TO 

PRINT AREA 



48 



.•INPUT BLOCK*. 

*. BYTE COUNT . 

•.EQUAL TO .* 



MOVE ESD 

BYTES AND 

COUNT TO 

PUNCH AREA 



USING PCHSUB, 
PUNCH 
* A CARD 



RESTORE 
INPUT BLOCK 
BYTE COUNT 



.* HAVE *. 
•ALL ENTRIES* 

BEEN MOVED 

*.TO PUNCH .* 

♦.BLOCK.* 

"»*YES 



USING PCHSUB, 
PUNCH 
* A CARD 



REDUCE 

INPUT BLOCK 

BYTE COUNT 

BY 48 



* IS * 

PUNCH BLOCK 
*. FULL .* 



.* HAS *. 

.•PUNCH BLOCK* 
*.ESD BEEN IN- 
*.CREMENTED.» 



.* HAS •. 

.•PUNCH BLOCK* 
.ESD BEEN IN- 
•.CREMENTED.* 



BLANK OUT 
ESID 
AREA 



*ADD PUNCH BLOCK* 

* ESD COUNT TO * 

* OLD ESD AND * 

* STORE • 



• 2 • 




ESDPTL .X. 






H5 *. 


»••• 




NO .* IS 
...*. BBC GREATER 
*. THAN . 






















X *. .* 








»*•»» » YES 








»HE * 








* B5* 
























PRT1 


X 




.X. 


«• J4*»>«*»»< 




J5 •. 






. * ». 


MOVE OLD 




NO .• IS 


ESID TO NEW 




...». PRINT FIELD 


ESID 


AREA 


* 


*. FULL 



* C3* 
TSTPRT 



UPDATE ESID 

STORAGE 

AREA 



USING PRTSUB, 
PRINT 
* A LINE 



Chart WF. Process ESD 
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» MOVE RLD TO 
•PRINT AREA AND 
* CONVERT BYTE 
» COUNT TO HEX 



.« IS ». 

.« BLOCK *. 

•.COUNT GREATER. 

•. THAN 56 .« 



REINT1 



•HOVE REMAINING 
» BYTES TO 
» PUNCH AREA 



REDUCE 

BBC 

BY 56 



.•IS • 
.CONTINUATION 
*. BIT ON .» 



YES .* MORE ». 

....*. THAN 48 BYTES. 

». MOVED .* 



.* 




IS 


* 


YES 


♦ . 


JBL 


EQUAL 







* 


**. 






"* 


* 












X 






* NO 
















*WE • 












* A5* 


















X 












EXTK3 


RLDPBP 


C< 


* 


<. 







• B5* 
PRT1 



USING PCHSUB, 
PUNCH 
• A CARD 



* IS ». YES 

BBC GREATER .*.... 
». THAN 52 .* 



TURN OFF 
CONTINUATION 
OF LAST 
ENTRY • 



USING PCHSUB, 
PUNCH 
• A CARD 



.» I 

». PRINT 
«. FU1 


S *. NO 
AREA .*.... 
.L .• 

f*YES '. 


•»»*«G4«< 


'. 


* USING PRTSUB, • 

PRINT 

• A LINE ♦ 


**»»*«< 


#»*••« 




X '. 



USING CONVRT, 
CONVERT R AND 

P POINTERS 
TO HEX, MOVE 
TO PRINT AREA 



USING PRTSUB, 
PRINT 
* A LINE 



»*«»G5 *♦*•»*♦♦« 
CONVERT FLAG 
BYTE TO 
PRINTABLE 
FORMAT, MOVE 
TO PRINT AREA 



* IS 

PRINT AREA 
». FULL 



USING PRTSUB, 

PRINT 

• A LINE • 



RLDPXA X 

»»***K5*»»»»**»» 

• USING CONVRT, 
•CONVERT ADDRESS 

• TO HEX, MOVE 
•TO PRINT AREA, 
•UPDATE ADDRESS 



Chart WG. 



Process RLD 



Charts 
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CONVERT 

ORIGIN AND 

ESIL) 

TO HEX 



MOVE RfcPRO 
ORIGIN AND 

ESID TO 
PRINT AREA 



NO .« IS * 
...*. BBC GREATER 
*. THAN 56 .• 



CONVERT 
BYTE COUNT 
TO DECIMAL 



MOVE 56 BYTES 

OF TXT TO 

PRINT FIELD 





* IS *. 


YES 


» 


MOVE 56 BYTES * 


.* IS *. YES 




BBC EQUAL .*.... 




TO * 


*. BBC EQUAL 








* 


PUNCH AREA » 






*. .* 


X 


* 


* 


**. .** X 

* NO »*** 




* NO 










• WF * 






**•* . *WE 






• Jl» 






* * . * B5 






• • 






» 2 *.X. * * 


















REINTl 






**** . PRT1 




X 






X 


TXTPIA X 


• •*•* EL** ******** 




»»*»*»E2*** ******** 


#*#*«E3********** 














* 


MOVE TXT • 






USING PCHSUB « 


» INITIALIZE « 




TO ^ 






PUNCH 


* PRINT * 


* 


PUNCH AREA ' 




* A CARD » 


» ADDRESS * 


*« 










«*»*»••*•«****«»• 



REPPL 




. 


<. 








U5 *. 












YES . 


• 


COLUMN * 








42 BLANK 




* 


* 


'*. .*** 




X 




***NO 




• WE * 








» B5* 






























PRT1 














X 








»*E5»**«***« 














MOVE A BLANK 








TO 








TMPREG 




* 








* 



INCREASE 

TMPREG 

BY 5 



BLANK 
REMAINDER 
OF PRINT 

AREA 



Chart WH. Process TXT and REP 



USING PRTSUB, 
PRINT 
« A LINE 
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PRINT 
MESSAGE 



GET ERROR 
MESSAGE. 
SET UP CCW 



1052 *. 
ASSIGNED 
.AS SYSLOG.* 



* TURN ON * 
•MESSAGE SWITCH 

* N0P1 ♦ 



ANSWER X 

GET OPERATOR 
* ANSWER 
FROM 
* SYSLOG 



ANSWER *. YES 
CANCEL OR ...... 

. BLANK .* 



.» SYSLST 

*. AND SYSLOG 
«. SAME 
•DEVICE • 



#G2«»«*«» 

TURN ON 

CANCEL 

SWITCH 

N0P2 



TURN ON 

SKIP ITEM 

SWITCH 



TURN ON 

ERROR SWITCH 

MOD IF 



PRINT LAST 
CONTROL 
CARD ON 
SYSLOG 



RESET 
N0P1 AND 

N0P2 
SWITCHES 



••*J1»»*«*»*« 

PRINT ERROR 
MESSAGE 



MESSAGE ». YES 
SWITCH ...... 

ON .» 



RETURN 



Chart WJ. Error Message Subroutine 
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SKIPTO 



* FIND LOGICAL 

* UNIT TOR 
•SYSRES, SYSRLB 

* OR SYSSLB 





*.bAMfc Ab LA5I .*.... 
*. USED .* 






1 » 


*»*NO '. 






*** 






IOREW X '. 




* OPEN » 

LIBRARY 

» TAPE * 




x'.x 1 




TSTEOV .X. 



« COMPARE * 

FOR LIBRARY 
». NAME .» 



RDAFM 

• EXCP 



READ 

NEXT LIBRARY 

HEADER 



SET LIBRARY 

NOT FOUND 
INDICATION 



FNDL2 

• EXCP 



BACK UP 

TO START 

OF LIBRARY 



Chart WK. Find Library Subroutine 



• ••J 4**»»**»»» 
RETURN * 
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SET SWITCH 

TO WAIT 
AFTER EXCP 



SET LOGICAL 

UNIT IN 
CCB 



TSTMV 

NNNNNNNNNNNNNNNNNNNNNNNNNN*» 

« DOES NOT EXCP * 

• IF COMREG » 

« INDICATOR IS » 

» RESET, BIT 1 * 

» OF BYTE 56 * 



SVC 15 
IF PROG. FETCH 
•DID NOT MOVE « 
SYSRES, EXCP 



SVC 
DESIRED 
CHANNEL 
PROGRAM 



NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN ». 
» SYSRES * .* *. 

• MUST BE * YES .» IS 

« REPOSITIONED « ...». COMREG 

• BEFORE EXCP * . *. INDICATOR. 
•WILL BE ALLOWED* . ». RESET.* 



• IS •• NO 

WAIT 

*. SWITCH .» 



RESET 

WAIT 

SWITCH 



RETURN 



Chart WL. Execute Channel Program Subroutine 



Charts 
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RSTPOS 
NNNNNNNNNNNNNNNNNNNNNNNNNN«««« 

• SETS COMREG • 

» INDICATOR TO « • 

• SYSRES NOT • 

• MOVED BY • * 

• PROG. FETCH • 



BSFR1 .X. 

D5 *. 
.» IS ». 
NO .* SYSRES • 
...♦.BEFORE FIRST 
*. TM .» 



TURN ON 
RECOVER 
SWITCH 



SVC 

REWIND SYSRES 

TO LOAD 

» POINT » 



.« IS •. 

.* SYSRES • 
. AT CORRECT 
♦.TAPEMARK .» 



.•COMPARE*. 
♦DESIRED TM 

COUNT TO 
•.POSITION . 



BACKSPACE 

SYSRES TO 

A TAPEMARK 



H3 ♦. 

.•COMPARE*. 

.•DESIRED REC*. 

•. COUNT TO 

•.POSITION .• 



FSFRTN X 

••♦••H5»* 
• EXCP 



FORWARD SPACE 

SYSRES TO 

A TAPEMARK 



DECREASE 

TAPEMARK 

COUNT 



BSRRTN 

»»»»»J2*« 
• EXCP 



BACKSPACE 

SYSRES 1 

RECORD 



TURN OFF 
RECOVER 
SWITCH 



FSRRTN 

••••»J4* 

•EXCP WL 

• FORWARD SPACE 

• SYSRES 1 

• RECORD 



INCREASE 

TAPEMARK 

COUNT 



DECREASE 

RECORD 

COUNT 



INCREASE 

RECORD 
COUNT 



RESLT 

RECORD 

COUNT TO 



Chart WM. Reposition SYRES for EXCP 
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SSERV 



IS IT * 
DISPLAY 

•OPFRATIUN.* 



*«»»B2*«*«***»« 

INITIALIZE 

FILES DTFCTL, 

DTFLST, MGLST 

FDR DEVICE 

TYPE 



.X. 

C2 «. 

» WHICH « 

UNIT IS 

LIBRARY 

ON 



« PRINT 

AND PUNCH 
•.OPERATION. 



»»D2*»«*»* 
REWIND 
PRIVATE 

TAPE 
SYSSLB 



*«*D3»»»»»»*» 
CHANGE SVC 
NUMBERS AND 

CCB FOR 

SYSRES 



PUNCH 

OUTPUT 

OPEN 



CSERR1 

•ERREG 



ERROR 

MESSAGE 

3510D 



GET PUB. GET 

DENSITY OF 

SYSSLB IN 

CCB3 



•INITIALIZE FOR 
» SYSPCH DEVICE 
» TYPE, SET EOF 
* SWITCH TO 
» PUNCH /« 



READ 

PRIVATE 

TAPE 

LABEL 




•SCAN FOR FIRST 

• OPERAND 

• FIELD 



CALLCS 

•»**»H2* 
•RDRDR 



READ IN 

CONTROL 

CARD 



END 
OF FILE 
READER 



WRGLTP 

**J3» 

•ERRRTN 



ERROR 

MESSAGE 

3S42A 



• B5« 
SLASHO 



SCAN FOR 

NEXT OPERAND 

FIELD 



IS IT 
LAST 

OPERAND 



• LAST • 
OPfcRAND 
CMPRSD 



• SET SWITCH * 
•FOR COMPRESSED 
» OUTPUT • 



XX. • 

XB • 
Al» 



Chart XA. Read Control Card; Determine Operation 
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GETBK1 X 






•BLNENT 


XE* 






• SCAN FOR 




• FIRST BOOK 




* NAME 


»»» 


**** 












•xc ».x 






» J5» 












TSTQUA .X. 




Bl ♦. 








.* A. OR 


«. NO 


• . C. OPE 


ERAND 


.* .. 



•PUT SUBLIBRARY 
•TO BE SERVICED < 
•CODE IN SERVSB 



• BLANK BOOK 
•TO BE SERVICED 

• FIELD 





CLRCO X 

***** A5 •»•••*•• 

• CLEAR BUFFERS 

• AND LOAD REG. 

• FOR CARD 

• OUTPUT 


'I 




EXPTIN .X. 

B5 ». 

YES .*** END *"• 




X 

• XC • 

• Bl» 

EOBKT 


♦. BLOCK .« 
*»*NO 

CPRSW .X. 

C5 ». 

.♦COMPRESSED** 
«. OUTPUT 





.• CONTROL •. 

.OPERAND RIGHT. 

•. LENGTH .* 



.• OPERAND • 

•.LENGTH EQUAL 

». TO ALL .• 



CSERR3 

*»«**E3»» 
•ERRRTN 



NO .• ROOM 
...•. FOR NEXT 
•. FIELD 



MOVE NON- 
BLANKS TO 
OUTPUT CARD 
BUFFER 



GETALL 

»*»»#Gl»»»«»**«» 

• LOAD REGISTER 

• PARLGR WITH 
•LENGTH OF BOOK 

• FOUND NAME 



• MOVE OPERAND 

• TO BOOK TO BE 
•SERVICED FIELD 



*****G5*«»»*»»* 

• MOVE NON- 

• BLANKS TO 

• PRINT BUFFER 



•PRINT BOOK END 

• AND CATALOG 

• HEADER 



•PRINT BOOK END 

• AND CATALOG 

• HEADER 



END 
OF PRINT 
. BUFFER 



DO OUTPUT 

FOR EXPANDED 

CARD IMAGE 



X 
• 1 



Chart XB. 
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LOAD 
RETURN 
ADDRESS 



•*»C1«**»»*»* 

INCREMENT 

BLOCK COUNT 

LOAD RETURN 

ADDRESS 



.X. 
C3 *. 

PRINT **«. YES 

CARD IMAGE .» 

t. STARTED .* 


»»*»#C4*«*»*»*»»» 
•EXPOUT XD« 


SKIPBO X 

•EJECT XH» 


..X» PRINT * 
* CARD » 


* SKIP TO * 

* NEXT PAGE * 



•Dl»*»»»» 
SVC 15 

READ 
BLOCK 
FROM 
LIBRARY 



TAPE 

MOVE 
ERROR 



NOTE IF LIBRARY IS 


*»»»»E3»»»»*«»»*« 


ON SYSRES AND THE 


* LOAD CARD * 


TAPE WAS MOVED OUT 


* OUTPUT BUFFER « 


OF THE SOURCE STATE- 


* ADDRESS. SET * 


MENT LIBRARY AREA BY 


* END OF BOOK « 


A FETCH FCR I/O 


* INDICATOR « 


ERROR HANDLING, 




SYSRES MUST BE FOR- 




WARD SPACED BACK TO 




THE BLOCK IT WAS 




OPERATING GN WHEN 




THE ERROR OCCURRED. 






#»»**»F3*»**»***»* 




CPPCH1 XD 




PUNCH 




* LAST » 




CARD 



*XB * 
* A 4* 

« * 



UPDATE 
BLOCK 
COUNT 



FIND THE 
NEXT BOOK 
IN LIBRARY 



LOAD I/O REGS 

POINT TO 

PUNCH AREA 



• END OF 

CONTROL 
•.STATEMENT. 



PUT BOOK END 
IN PRINT AND 
PUNCH BUFFERS 



Chart XC. End of Book 
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CPRPCH 



«C2»««*« 
EXPGUT 



CPPCH1 
CPPCH2 X 

* LOAD 
•RETURN ADDRESS. 

* LOAD CARD 

* OUTPUT REGS 



PRINT 

EXPANDED 

CARD 

IMAGE 



• CONVERT CARD » 
•SEQUENCE NUMBER* 
•FROM BINARY TO • 

• DECIMAL • 



• PUNCH » 
COMPRESSED CARD 
* IMAGE • 



• **«F2«*«"*«»* 

fOVE EXPANDED 

CARD INTO 

PUNCH 

BUFFER 



.X 

RSTPRT X 

» STORE PRINT 

• CONTROL REG. 
» BLANK PRINT 

• BUFFER 



#»»»»Gl**-»»»***» 

• CLEAR BUFFER. 
•LOAD REGISTERS 

• FOR CARD 

• OUTPUT 



PUNCH 

EXPANDED 

CARD 



X 

»Hl»*»*» 

RETURN 



• RETURN PLUS 4 



Chart XD. Output Subroutines 
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READ 

CONTROL 

CARD 



LOAD REG FOR 

NONBLANK 

FIELD SCAN 



REWIND 
LIBRARY 
TAPE 



IS 

CARD 
BLANK 



SCAN FOR NEXT 

OPERAND 

FIELD 



.* END ». 

» OF » 

FILE READER 



* SYSRDR 

AND SYSPCH 
». SAME 
•DEVICE » 



INITIALIZE TO 
SCAN ACROSS 
BLANK FIELD 



* COMPUTE « 

* LENGTH OF • 
♦NON-BLANK FIELD* 



»F1»**»»»**« 

BLNENT 



•*F3**««*» 

RETURN 



FIRST 
NON-BLANK 
. FOUND . 



BLANK 

PRINT 

BUFFER 



COMPUTE 
REMAINING 
LENGTH OF 
STATEMENT 



CSERR2 

»»«**J2««»***» 
•ERRRTN 



EJECT LAST 

CARD 

PUNCHED 



• »»• 

1 * 
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.Al..... 

FNDBK 



LOAD I/O 

COUNT TO 

FIND LIBRARY 



••••Bl»»»»»»»* 

SET BLOCK 
NUMBER TO 
FIRST BLOCK 



.• CURRENT • . NO 






• • SUBLIBRARY ....... 






•. DESIRED .* 


















* YES 






MVBKF .X. 


GOTOSB 


K 


Dl •. 


•••*»D2«***«****» 


• * *. 




.» WHICH • . BACKWARD » SET CURRENT • 


». WAY IS BOOK .* 


• BOOK TO * 




♦ DESIRED BOOK • 




* • 






•FORWARD 
















• I ».X. 












*»»# 






FWDINI X 


. X. 


»»#»»E1»*»«»»»»»» 


E2 ». 


• SET NUMBER • 


.• WHICH •. 


» OF FORWARD • 


.• WAY IS *. FORWARD 


•I/O OPERATIONS • 


». SUBLIBRARY ...... 


• TO DO • 




• » 


*•. .«* X 

•BACKWARD *••• 






• • • 






• 1 • 


• 2 ».X. 








..........X 




»•*« I 






SETOP X 


X 


...••Fl.. ........ 


»»»»»F2 »•»•••»•»• 


• POINT TO • 


• SET NUMBER • 


• CURRENT I/O • 


• OF BACKWARD • 


* COMMAND. • 


•I/O OPERATIONS • 


• PUT OP CODE • 


• TO DO • 


• IN CCW • 


• 


»••••••»• 



.« IS • 

THIS THE 

DESIRED 

. LIBRARY 



••READING*. 
• DESIRED 
SUBLIBRARY 



EOSYST 
NO .♦' 



• CURRENT 

SUBLIBRARY 
•. DESIRED . 



#«»#»F4*»»»» 



END 

OF SYSTEM 

TAPE 



BSF 

SYSTEM 

TAPE 



SET I/O 

COUNT TO 
READ 



PRTNF X 
*«»»»F5*» 
•ERRRTN 



SVC 15 

MOVE TAPE 

TO DESIRED 

BOOK 



BOOK 

NAME 

LOW 



•G5»»**« 

RETURN 



NO 
X 


.• TAPE 

. MOVE ERROR 

'•*YES 


5 • 


Ix.» 


SETBIT X 

•••»»J1»»««»* 


: 


SET CCW 
TO FORWARD 
SPACE FILE 



•NOTE IF LIBRARY IS 
ON SYSRES AND THE 
TAPE WAS MOVED OUT 
OF THE SOURCE STATE- 
MENT LIBRARY AREA BY 
A FETCH FOR I/O 
ERR HANDLING. 
SYSRES MUST BE FOR- 
WARD SPACED TO 
THE BLOCK IT WAS 
OPERATING ON WHEN 
THE ERROR OCCURRED. 



BOOK 
NAME 
HIGH 



FORWARD 
SPACE 
FILE 



»*»K4*» •*»»»• 
RETURN 



Chart XF. Find Book Subroutine 
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« PUT BOOK END * 
• HEADER IN » 
•PRINT AND PUNCH* 
» BUFFERS * 



PRINT BOOK 

END HEADER 

STATEMENT 



SPACE 2 LINES 

BEFORE FIRST 

CARD IMAGE 



E2 ». 
.»SYSRDR «. 
-•AND SYSPCH 
». SAFE 

». DEVICE . 



EJECT ONE 
CARD ON 
SYSPCH 



• ••'••F 2 *•*»**»»» 

* PUT CATALS 

* STATEMENT 

• IN PRINT AND 
» PUNCH BUFF£RS 



PUT SEQUENCE 
NUMBER AND 
COMPRESSED 
OPERANDS ON 
CARD IMAGE 



PRINT CATALOG • 
HEADER 
» LINE * 



PUNCH 

COMPRESSED 

CARD 

IMAGE 



SPACE TO 

NEXT PRINT 

LINE 



* PUNCH CATALOG • 

CARD X... 
• IMAGE * 
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»B3**«*»» 
SPACE 3 



»»C1»»*»* 

EJECT 



SPACE3 X 

• * SET CONTROL * 

• SPACE 3. • 

• DECREMENT * 
•LAST LINE COUNT* 



«C5*««*»« 

SPACE I 



• SET CONTROL 

• CHARACTER TO 

• EJECT 



SET CONTROL 
SPACE 1. 
LOAD LAST 

LINE COUNT 



»LOAD ADDRESS OF» 
•COMMUNICATIONS • 
• REGION » 



DECREMENT 
LINE 
COUNT 



GET NUMBER 

LINES PER 

PAGE 



*F3«"**» 

SPACE 2 



•••Hl*»»«* 
RETURN 



•••G3««»**»*« 

SET CONTROL 

SPACE 2. 

LOAD LAST 

LINE COUNT 



LINE 

COUNT 




Chart XH. Space Control Subroutines 
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»»»»A1»**»* 
» ERRRTN 



CANCEL 
SWITCH 

ON 



PRINT 

MESSAGE 

ON 
SYSLOG 



•B5»«*«» 

SVC 6 

CANCEL 



•••»«Cl»»*»»*« 

• GET ERROR 

• MESSAGE. 

• SET UP CCW 



10$2 ». 

ASSIGNED 
•AS SYSLOG.* 



* TURN ON * 
. X»MESSAGE SWITCH 

* NOPl « 



ANSWER X 

**»««»04*»*»*»»» 
GET OPERATOR 
* ANSWER 

FROM 
* SYSLOG 



ANSWER 
CANCEL OR 
. BLANK . 



.♦ SYSLST 

*. AND SYSLOG 

». SAME 

•DEVICE • 



TURN ON 

CANCEL 

SWITCH 

N0P2 



TURN ON 

SKIP ITEM 

SWITCH 



TURN ON 

ERROR SWITCH 

MODIF 



PRINT LAST 
CONTROL 
CARD ON 
SYSLOG 



RESET 
NOPl AND 

N0P2 
SWITCHES 



PRINT ERROR 
MESSAGE 



»»*K4*«*»* 
RETURN 
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INDEX 



101 
109 



46 
31 



ACTRTN Linkage Editor Action Card 

Processor 76 
ACTION Statement 44 
Actual I/O 20 
ADD Statement in IPL 62 
Analysis to Fetch Phases MAINT 
Analyze Library Record RSERV 
ASSGN Macro 36 
ASSGN Statement 44 
Asynchronous Transients. See PIOCS Error 

Transients 88 

BOS Environment 9 

CALL Macro 37 

Cancel Codes 32 

CANCEL Macro 3 7 

CANCEL Statement 

Cancel Transient 

CCB Macro 37 

Channel Queue. See CHANQ 

Channel Scheduler 20 

Channel Scheduler Flag 15 

CHANQ Table 13, 15, 17, 18, 19 

See also Channel Scheduler 2 
Chart List 6 
Checkpoint Transient 31 
CHKPT Macro 37 
CHKRTN Linkage Editor Get Record 

Subroutine 74 
CHNG Macro 37 
CLOSE Statement 47 
CMNTPR Job Control Comment 47 
Communications Region 13, 14 
COMPUTE Linkage Editor Compute Buffer 

Size 84 
COMRG Macro 37 
CONFG Macro 35 
Continue Exit 2 3 
Control Dictionary 



65, 69, 



70 

Copy Complete Library MAINT 101 
Core Image Library 9, 10, 95 
CSW Testing in Supervisor 21, 22 
CTLFCH Linkage Editor Fetch 74 
CTLRTN Linkage Editor Identify Control 
Card 75 

DATE Statement 4 7 

DELETE Statement in IPL 6 3 

Device Assignments 11 

Device Error Recovery 29, 30 

Device Types 15 

Device Not Operational Exit 2 3 

Display CD DSERV 107 

Display RD DSERV 10 8 

Display SD DSERV 108 

DSERV Librarian Directory Service 106 

DUMP Macro 3 8 

Dump Transient 32 

DVCGEN Macro 35 

DVCUP Statement 47 



End of Book SSERV 113 
End of Volume Transient 32 
ENDPH Linkage Editor End of RLD's 
ENDPHA Linkage Editor End of 

Processing 90 
ENDRTN Linkage Editor END Card 

Processing 80 
ENDTST Linkage Editor Test for End 

of Record 86 
ENTRTN Linkage Editor Entry Processor 



87 



82 



See ACTION 



44 



ENTRY Statement. 

EOJ Macro 3 8 

EOJ Write Last Record MAINT 100 

EOJRTN Job Control End of Job 4 8 

Equipment Check Exit 2 3 

Error Message 2 9 

Error Message Subroutine 

DSERV 10 7 

MAINT 100 

RSERV 110 

SSERV 114 
Error Recovery Exit Routines 2 3 
ESD 65 

ESDRTN Linkage Editor ESD Processor 77 
EXCP Macro 38 
EXEC Statement 4 8 
Execute Channel Program Subroutine 

DSERV 107 

MAINT 101 

RSERV 111 
EXIT Macro 3 8 
External Interrupt 25 
EXTREAD Linkage Editor Extra Read 9 

FAVP 16 

Fetch 25 

FETCH Macro 38 

FETCHR Job Control Fetch 5 3 

FICL 16 

Figure List 5 

Find Book Subroutine SSERV 113 

Find Library Subroutine 

DSERV 107 

MAINT 101 

RSERV 111 
FLPTR 15 
FOCL 15 

GETCD Linkage Editor Get Card Pro- 
cessor 73 
GETIME Macro 3 8 
GETRCD Linkage Editor Input Subroutine 74 

Header Subroutine SSERV 114 

I/O Channel Failure Exit 2 3 
I/O. See Devices 11, 15 

Logical IOCS 20 

Sample Table 18 

Tables and Pointers 17 

Table Entries 19 
I/O Interrupt 21 



Index 32 7 



IGNORE Statement 4 8 

Illegal SVC Transient 33 

INCLUD Statement 4 8 

INCRTN Linkage Editor Include Card 

Processor 75 
INITIAL Linkage Editor Pass 3 

Initialization 84 
Input Subroutines SSERV 113 
INTCRE Linkage Editor Storage 

Initialization 72 
INTFIL Linkage Editor I/O 

Initialization 72 
IORTN Linkage Editor I/O Subroutine 
IOTAB Macro 35 
IPL 5 7 

IPL Subroutines 6 3 
IPL Error Halts 64 

JBCSWO, JBCSW1, JBCSW2, JBCSW3. 

See Job Control Switch Bytes 43 
JCOPT Macro 35 
JIB Flag 16 
JIB Table 13, 16, 17, 18, 19 

See also ASSGN 45 
Job Control 40 
Job Control Error Routines 56 
Job Control Flag 15, 16 
Job Control Open for Tape Transient 
Job Control Statements 44 
Job Control Subroutines 5 3 
Job Control Switch Bytes 4 3 
JOB Statement 49 
JOBCTL - Job Control Initialization 

Key Interrupt 25 

Librarian 92 
Library Format 92 
Linkage Editor 65 
Linkage Table 70 
LISTIO Statement 49 
LOAD Macro 38 
Locate Module Header RSERV 
LOG Statement 50 
Logical Unit Names 
LUB Flag 16, 17 

See also JIBTAB 
LUB Table 13, 16 

See also ASSGN Macro 

and ASSGN Statement 
LUBPTR 15 



NICL 16 
NOLOG Statement 



50 



76 



33 



43 



109 

13, 16, 17 

16 

17, 18, 19 
36 
45 



Machine Check Interrupt 2 3 

Macro Routines 34 

MAINT Librarian Maintenance Program 96 

MAINTC Core Image Library Maintenance 102 

MAINTR Relocatable Library 

Maintenance 10 3 
MAINTS Source Statement Library 

Maintenance 104 
MAP Linkage Editor 82 
Message Input Transient 33 
Message Writer 28 
Modules 65 
MOVRFAO Linkage Editor Move R/F and A/0 

to Buffer 86 
MTC Statement 50 
MVCOM Macro 38 



OPTION Macro 36 

OPTION Statement 50 

Output Library Records SSERV 113 

Output Subroutines SSERV 113 

Pass 1 Linkage Editor 72 

Pass 2 Linkage Editor 82 

Pass 3 Linkage Editor 84 

Pass 4 Linkage Editor 91 

PAUSE Statement 51 

PDUMP Macro 39 

Phase Record 70, 72 

PHASE Statement. See ACTION Statement 44 

PHRCD Linkage Editor Process Phase 

Record 85 
PHSFIN Linkage Editor Phase Processor 81 
PHSPRO Linkage Editor Phase Processor 81 
Physical IOCS 20 
PIOCS Error Transients 2 8 
PIOCS Macro 36 
POSRTN Linkage Editor Position to Operand 

Subroutine 75 
Process ESD RSERV 110 
Process RLD RSERV 110 
Process TXT RSERV 110 
Program Check Exit 2 3 
Program Check Interrupt 2 6 
Program Check Transient 33 
Program Dump Transient 34 
PUB Table 13, 15, 17, 18, 19 

See also ASSGN Statement 45 

and Channel Scheduler 2 

and Set Statement in IPL 63 

and DVCGEN Macro 35 

RAO Linkage Editor Process Flag 86 
Read Control Cards 

DSERV 106 

MAINT 100 

RSERV 10 8 

SSERV 111 
Relocatable Library 9, 10, 94 
REPRTN Linkage Editor REP Processor 81 
REQID 15 

RESET Statement 51 
Restart Transient 34 
Retry Exit 2 3 
RETURN Macro 39 
RLD 65, 6 6 

RLDFMT Linkage Editor RLD Formatting 85 
RLDRD Linkage Editor Read RLD Tape 85 
RLDRTN Linkage Editor RLD Processor 79 
RLDTST Linkage Editor Match RLD to 

TXT 89 
RSERV Relocatable Library Service 108 
RSTRT Statement 51 

SAVE Macro 39 
SET Statement 51 
SET Statement in IPL 62 
SETIME Macro 39 
Signal Interrupt 2 6 

Space Control Subroutines SSERV 114 
Source Statement Library 9, 10, 92 
SSERV Source Statement Library 
Service 111 
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Start I/O Exit 23 

START Linkage Editor Pass 3 

Initialization 88 
STMTIN Job Control Input 43 
STXIT Macro 39 

SUBSTI Linkage Editor Relocate Constant 
Supervisor 12 

Supervisor Call Interrupt 24 
Supervisor Communication Macros 36 
Supervisor Constant Areas 13 
Supervisor Nucleus 18 
Supervisor Transients 30 
SUPVR Macro 35 
Synchronous Transients. See Supervisor 

Transients 30 
System Core Allocation 9, 11 
System Flow and System Libraries 92 
System Generation Macros 34 
System I/O 9, 11 
System Program Flow 9, 10 
System Residence 9, 10 
SYSXXX. See Logical Unit Names 17 

Tape Error Recovery 26, 2 7 
TEB Table 13, 17, 18, 19 

See also Tape Error Recovery 26 
Timer Interrupt 25 
TNTFCK Linkage Editor Fetch 74 
TPLAB Statement 52 
Transient Routines: Type-A 28 

Type-B 30 
TXTRTN Linkage Editor TXT Processor 79 
Type-A Transients. See PIOCS Error 

Transients 2 8 
Type-B Transients. See Supervisor 

Transients 30 

Unit Check 2 3 

Unit Check Exit Routines 2 3 

UPDATE Linkage Editor Get Next RLD 90 

UPSI Statement 52 

VOL Statement 53 

WAIT Macro 39 

$$A$IPL1 57 

$$A$IPL2 60 

$$A$SUP 12 

$$ANERRM 2 8 

$$ANERRN 2 8 

$$ANERRO 2 8 

$$ANERRP 2 8 

$$ANERRU 2 9 

$$ANERRV 2 9 

$$BCMCL 31 

$$BDUMP 32 

$$BEOVRT 32 

$$BILSVC 33 

$$BJCOPT 33 

$$BMSGIN 33 

$$BPCHK 33 

$$BPDUMP 3 4 

$$BRSTRT 3 4 

$IPLRT2 61 

$J0BCTL1 40 

$LNKEDT 72 

$LNKEDTB 77 



$LNKEDTD 


81 


$LNKEDTF 


82 


$LNKEDTH 


84 


$LNKEDTJ 


88 


$LNKEDTL 


91 
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